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FOREWORD 


The effort required to develop the Global Reference Atmospheric 
Model was sponsored by the Atmospheric Sciences Division, Space Science 
Laboratory, NASA Marshall Space Flight Center. This report represents 
the latest developmental work on the model and was accomplished under 
the technical monitorship of Mr. Orvel E. Smith, the NASA Contracting 
Officer's Representative. Qualified requestors may obtain copies of 
the computer program for this NASA/MSFC Global Reference Atmospheric 
Model upon request to the Chief, Atmospheric Sciences Division, Space 
Sciences Laboratory, NASA, Marshall Space Flight Center, Alabama 35812. 
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1. INTRODUCTION 


In response to needs for empirical model atmospheres of wider scope and 
application, Georgia Tech developed, under NASA sponsorship, a Global 
Reference Atmosphere Model (GRAM) with latitude, longitude, and monthly vari- 
ations over a height range from 0 to 700 km ( Justus, et al . , 1974 a, b, 1975, 
1976). This report describes additions to this model whereby winds can be 
computed from a spherical harmonic model, based on observed wind data, rather 
than using the geostrophic relations originally employed. This section 
describes the basic GRAM model and Section 3 provides a more detailed 
description of the GRAM program. Section 3 presents some sample results with 
the new spherical harmonic wind model. Section 4 and 5 are user's manual 
and programmer's manual section for the GRAM program. 

1 . 1 Description of the Basic Model 

The Georgia Tech Global Reference Atmospheric Model (GRAM), is an amalga 
mation of two previously existing empirical atmospheric models for the low 
(<25 km) and high (>90 km) atmosphere, with an empirical latitude-longitude 
dependent model for the middle atmosphere. The high atmospheric region 
above 115 km is simulated entirely by the Jacchia (1970) model. The Jacchia 
program sections are in separate subroutines so that later Jacchia models 
( Jacchia , 1971) or other thermospheric-exospheric models could easily be 
adapted and substituted into the program if required for special applications 
The atmospheric region between 25 km and 115 km is simulated by a latitude- 
longitude dependent empirical model, which is a modification of the latitude 
dependent empirical model developed by Groves (1971), described more fully 
in this report. Between 90 km and 115 km, a smooth transition between the 
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modified Groves values and the Jacchia values is accomplished by a fairing tech- 
nique. Below 25 km the atmospheric parameters are computed by a 4-D world-wide 
atmospheric model developed for NASA by Allied Research Associates ( Spiegler 
and Fowler , 1972). Between 25 and 30 km an interpolation scheme is used between 
the 4-D results and the modified Groves values. Figure 1.1 presents a schematic 
summary of the Global Reference Atmospheric Model program atmospheric regions 
and how they are modeled. 

The modifications to Groves model to produce longitude as well as lati- 
tude variations in the monthly mean were accomplished in two steps. For the 
original version, upper air summary map data for monthly means at the 10 mb 
level for 1966 and 1967 ( NOAA , 1969b) and the 2 and 0.4 mb levels for 1966, 

1967, and 1968 ( NOAA , 1969a, 1970, 1971) were read and converted to values for 
the 30, 40, and 52 km levels. These upper air map values at the 2 and 0.4 mb 
levels were extended around the entire northern hemisphere by subjective extra- 
polation. For the earlier Mod 2 version of GRAM, additional 10 mb data for 
1964 and 1965 ( NOAA , 1967a) and 2 and 0.4 mb data for 1964 and 1965 ( NOAA , 

1967 b, c) and 1972 ( NOAA , 1975) were also read and added to the earlier 
data. The 1972 2 and 0.4 mb data extended into the eastern hemisphere, so 
no extrapolation of it was necessary.- Next the 30, 40, and 52 km latitude- 
longitude dependent values were extrapolated to 90 km by an extrapolation 
scheme developed by Graves , (1973). All of the map-generated and extrapolated 
data were converted to percent deviation from the longitudinal mean and these 
are applied as deviations (called stationary perturbations) to the Groves 
model values, which are taken as the latitude dependent longitudinal means. 

The seasonal variations in the middle atmosphere (25-115 km) are assumed 
to be the same in northern and southern hemispheres with a six months' phase 
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FAIRING BETWEEN THE MODIFIED GROVES AND THE JACCHIA VALUES 
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INTERPOLATION BETWEEN THE MODIFIED GROVES AND 4-D VALUES 


25 


4-D MODEL (SPIEGLER AND FOWLER, 1972) 


SURFACE 


Figure 1.1 Schematic summary of the atmospheric regions in the Global 
Reference Atmospheric Model (GRAM) program and the simu- 
lation methods used for mean monthly values in each region 


3 



lag. That is, the southern hemisphere July is the same as the northern hemi- 
sphere January. In the 4-D region (<25 km) separate global coverage data 
values are available for each of the twelve months. A set of annual reference 
period data are also available for the 4-D and modified Groves regions. If 
the annual reference period is selected, the Jacchia section sets the exo- 
spheric temperature to 1000°K to represent annual mean conditions. 

Below 25 km and above 90 km, the monthly mean geostrophic winds are 
computed from horizontal pressure gradients, estimated by finite differences. 
Near the equator, a newly devised interpolation scheme is used instead of 
the geostrophic relation (which approaches infinite values as the latitude 
approaches zero). In the height range 25 to 90 km, the newly developed 
spherical harmonic wind model is used, at all latitudes. Mean vertical winds, 
of the order of 1 cm/sec, are evaluated from the slopes of isentropic sur- 
faces and the horizontal advective winds. Wind shear in the monthly mean 
horizontal wind is estimated from horizontal temperature gradients in the 
regions below 25 km and above 90 km. In the 25-90 km height range, mean wind 
shear is computed from finite differences of the spherical harmonic winds at 
adjacent height levels. 

In addition to the monthly mean values of pressure, density and tempe- 
rature, two types of perturbations are evaluated: quasi -biennial (QBO) and 

random. The QBO oscillations in pressure, density, temperature, and winds, 
empirically determined to be represented by an 870 day period sinusoidal vari 
ation, have amplitudes and phases which vary with height and latitude. The 
QBO amplitudes are primarily significant at low altitudes (; 20 - 40 km) at 
equatorial latitudes and at higher altitudes (50 - 60 km) at higher latitudes 
For the earlier Mod 2 version, the QBO amplitudes and phases were newly 
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evaluated from a larger data set, which included MRN data through 1972. 

For realistic simulation of actual atmospheric parameter values as they 
would likely be at any given time, random perturbations are also computed and 
applied as perturbations to the monthly mean values. The random perturbations 
are evaluated by a simulation technique which uses empirical values of vari- 
ation magnitudes and scales to generate random perturbations which have real- 
istic space and time correlations. 

Originally the perturbation model was characterized by a single vertical 
scale and horizontal scale, and no attempt was made to insure compliance with 
constraints on the perturbation magnitudes, required by the perfect gas law 
( Buell , 1970) and hydrostatic equation ( Buel 1 , 1972). In an earlier report 
( Justus and Woodrum , 1975), the revisions were described which improved the 
data base of the perturbation magnitudes, and adjusted the magnitude profiles 
to insure compliance with the Buell constraints. For the earlier Mod 2 
version reported here, the use of a two scale perturbation model was implemented. 
This model simulates separately the perturbations of small scale (e.g., turbu- 
lence and gravity waves) and large scale (e.g., tides and planetary waves) 
effects. These perturbations are treated stochastically, however--no deter- 
ministic model of these physical processes is used. 

The following sections give a technical description of the Global 
Reference Atmospheric Model - Mod 3 with emphasis on the new additions, and 
new users manual descriptions of the program aspects of the revised model. 
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2. TECHNICAL DESCRIPTION OF THE MODEL 


2. 1 The Jacchia Section 

The Jacchi a (1970) model for the thermosphere and exosphere was origi- 
nally implemented to compute atmospheric density at satellite altitudes. The 
Jacchia model accounts for temperature and density variations due to solar and 
geomagnetic activity, diurnal and semi-annual variations, and seasonal and 
latitudinal variations. The Jacchia model assumes a uniformly mixed composition 
from sea level to 105 km, with diffusive equilibrium among the constituents 
(nitrogen, oxygen, argon, helium, and hydrogen) above 105 km. Fixed boundary 
values for temperature and density are assumed at 90 km. Alterations, described 
in Justus et al (1974 a), were made to allow atmospheric pressure to be computed 
from the density and temperature. Geostrophic winds are evaluated in the 
Jacchia section by computing horizontal pressure gradients with successive 
evaluations of the Jacchia model at different latitudes and lonaitudes. 

2.2 The 4-D Section (below 25 km) 

The 4-D atmospheric model, developed by Allied Research Associates 
( Spiegler and Fowler , 1972) was designed to extract from data tapes and interpo- 
late on latitude and longitude, mean monthly and daily variance profiles of 
pressure, density, temperature, at 1 km intervals from the surface to a height 
of 25 km for any location on the globe. The data tapes contain empirically 
determined atmospheric parameter profiles at a large array of locations. The 
northern hemisphere grid array is equivalent to the NMC grid network. Gric's 
spaced at 5 degree intervals of latitude and longitude are used in the equator- 
ial and southern hemisphere regions. 

Technical changes made in the 4-D program were: a modified latitude- 


6 



longitude interpolation method, previously described in Justus et al . (1974 a), 
an adjustment routine to modify the variance to comply with the Buell con- 
straints, and a check routine to determine vertical and horizontal consistency 
of the 4-D data. 

The method of application of the 4-D model in the GRAM program is as 
follows: at the first time that atmospheric parameters at a location below 

30 km are required, a set of atmospheric profiles of monthly mean and daily 
variances of pressure, density, and temperature are generated at a 16 point 
grid of locations spaced at 5 degree latitude and longitude intervals (a 
slightly different grid is used near the poles). This grid of profiles, cover- 
ing 15° x 15° of latitude-longitude is then stored in the computer and all 
further atmospheric parameter values in the 0-25 km range are found by interpo- 
lation between locations within this grid. If the trajectory goes outside this 
grid while the height remains below 25 km, the program attempts an estimate of 
the atmospheric parameters by an additional call on the routine which sets up 
the 4-D data grid. 

The location of the grid points to be evaluated is determined dynamically 
based on the position and direction of travel along the trajectory when the 4-D 
grid is first required by a procedure described in Justus et al (1974 a). The 
4-D data tapes normally contain data for the surface to 25 km in 1 km steps. 

At locations where the surface is at more than 1 km above sea level the surface 
value will be followed by one or more zero records, and the first non-zero 
record above the surface value will be at the lowest integer km higher than 
the surface. For example, if the surface is at 700 m then there will be data at 
surface, 1 km, 2 km, etc., but if the surface is at 1.3 km the data will con- 
tain the surface, one zero record, 2 km, 3 km, etc. In the Mod-3 version an 
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interpolation routine (based on the hydrostatic relation and constant lapse 
rate altitude segments) is used to fill in data between sea level and the first 
non-zero data above the surface. Interpolation is also used to fill in any 
missing data immediately below the 25 km height. The basic interpolation 
equations were described in Jus tus et a l (1974 a). 

2 . 3 The Modified Groves Section (25 - 90 km) 

The startinq point for the middle atmosphere (25 - 110 km) is the lati- 
tude dependent model of Groves (1971). This empirical model combines many obser- 
vations from a wide range of longitudes. Observational results over approxi- 
mately six years were used to compute longitudinal averages, which are presented 
versus latitude and month. Latitude coverage of the Groves model is from the 
equator to 70° or in some cases 80°. Southern hemisphere data were utilized in 
developing the Groves model as northern hemisphere data with a 6-month change of 
date. Tabulations of the Groves model are at intervals of 5 km in height, 10° 
in latitude (northern hemisphere), and one month in time (southern hemisphere 
displaced six months). If the Groves values of an atmospheric parameter y were 
known up to 80° latitude, then the 90° latitude Groves value was computed from 

y 90 = ^ 4y 80 " y 7Cp //3 

If Groves values of the atmospheric parameter y were known only up to 70° lati- 
tude, then the 80° and 90° latitude Groves values was computed from 

y 90 = ^ 9y 70 “ 4y 60^ 5 

y 80 = ^ 8y 70 _ 3y 60^ 5 ^ 2 ' 3 ^ 

The Groves model data has only height and latitude variation for each 
month. For longitude variation, the Groves model data is modified by longitude, 


8 



latitude, and height dependent stationary perturbations. These stationary 
perturbations are derived, by methods described more fully in Justus_et^l (1974 a) 
from 10, 2, and 0.4 mb map data and extrapolation up to 90 km. The stationary 
perturbations were evaluated at longitudes 10°, 40°, 70 , ... 340 for latitudes 
10°, 30°, 50°, 70°, and 90°. 

Originally, only the 1966 and 1967 10 mb monthly mean values (NOAA, 1969 b) 
were read and averaged. The 2 mb and 0.4 mb weekly mean maps for 1966, 1967, 
and 1968 ( NOAA , 1969 a), 1970, 1971) were read for the first week of each month, 
and averaged over the three years. For the earlier Mod 2 version, additional 
10 mb data for 1964 and 1964 ( NOAA , 1967 a) and 2 and 0.4 mb data for 1964 
and 1965 ( NOAA , 1967 b, c) and 1972 ( NOAA , 1975) were also read and added to 
the earlier data. 

After the upper air chart data were averaged, the next step was to con- 
vert the readings to constant heights of 30, 40, and 52 km. This was done by 
assuming that the temperature followed a constant lapse rate between each chart 
level and the nearest interpolation altitude with lapse rates based on the Groves 
model . 

In order to introduce longitude variability at heights above 52 km, the 
extrapolation technique of Graves et al . (1973) was used to project the 52 km 
interpolated chart data up to 90 km. The 5 extrapolation height levels are 60, 
68, 76, 84, and 90 km. 

After the chart data were interpolated to 30, 40, and 52 km and extra- 
polated to 60, 68, 76, 84, and 90 km, the stationary perturbations (relative 
deviations to be added to the Groves values) were calculated. At each altitude 
and latitude the stationary perturbation s y for a parameter y (which can repre- 
sent pressure, density, or temperature) was computed by the relation 
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(y - <y> )/<y> 


( 2 . 4 ) 


-here <y> represents the longitude averaged value of y (i.e. averaged around a 
circle of fixed latitude). Note that the definition of s y makes it be identi- 
cally zero at the pole. The stationary perturbation s y for parameter y is 
added to the Groves value G y to produce the longitude variable modified Groves 
value G ' , according to the relation 


U l 

y 




The modified Groves values, determined by relation (2.5) are used as the monthly 
mean values for the altitude range 30 to 90 km. 

2 - 4 Interpolation and Fairing 

The 4 D data are available on the data tapes at one km height intervals 
and at 5 x 5 latitude-longitude grids in the southern and equatorial areas and 
at the NMC grid locations in the northern hemisphere. NMC grid profiles are 
always converted (by interpolation) to 5“ x 5" grids before interpolation to the 
trajectory locations. The general interpolation requirements for the 4-D section 

are height interpolation over 1 km and latitude-longitude interpolation over a 
5" x 5° square grid. 

The Groves data are tabulated at 5 km height intervals and 10“ latitude 
intervals. Interpolation is required between these tabulated locations. The 
stationary perturbations are evaluated at 20“ latitude and 30“ longitude inter- 
vals and at 30, 40, 52, 60, 68, 76, 84, and 90 km altitudes. Interpolation be- 
tween these tabulated locations is also required. For values between 25 k- and 
30 km interpolation between the 4-D data and Groves-plus-stationary-perturbation 
data are required. The interpolations are always carried out in the program by 
doing the latitude (Groves) or latitude-longitude (4-D) Interpolation first, and 
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then doing the height interpolation. 

The Jacchia model can be evaluated at any height above 90 km and at any 
latitude and longitude, so no interpolation is required. However, between 90 
and 115 km there is overlap between the Groves data and the Jacchia model , so a 
fairing procedure is used to effect a smooth transition between the Groves data 
at 90 km and the Jacchia values at 115 km. 

The method used to interpolate pressure, density, and temperature over a 
height interval between heights z-j and z 2 is to assume linear variation of the 
temperature and of the logarithm of the density. The latitude interpolation for 
the Groves data is done by assuming linear variation between the latitudes 0 ] 
and ^2 (which are at aj> = 10° apart). Two dimensional latitude-longitude 
interpolation between a square or rectangular array of positions at latitudes 
*1 and ^ 2 and west longitudes X-j and x 2 , is done by the relation 

F( *» X) = F o + {F 1 " F 0 )& » + < F 2 - F 0 )* + ( p 3 - F 1 - f 2 + F o )& » 6A 

where 60 is (0 -*,)/(♦ 2 -♦,) and fix is (x - x ] )/(x 2 - x-,). 

To accomplish smooth transition between the Groves values at 90 km and 
the Jacchia values at 115 km a fairing technique is used. This fairing techni- 
que was described in Justus et al (1974 a). The fairing is done only at the 
altitudes 95, 100, 105, 110, i.e. heights for which there are Groves values. 
Linear interpolation is then used to fill in the remaining heights, as discussed 
in the height interpolation section above. 

Interpolation of the random perturbation magnitudes is done linearly 
on the variance (a ) rather than linearly on the magnitude (o). This is 
because the Buell adjustment equations (see later sections) are nearly linear in 
the variances. Thus, once variances have been Buell adjusted, their adjust- 
ment would tend to be preserved by linear interpolation on variances, not 
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magnitudes . 

2.5 Geostrophic Winds 


The eastward (i.e., blowing toward the east) wind component u and north- 
ward component v can be evaluated from the geostrophic wind equations 

u - -O/pf) 3P/3Y (2 ' 6) 

V = (1/pf) 3P/3X ( 2 - 7 ) 

where p is the density, f is the Coriolis parameter (2 n sin *) and 3p/3x 
and ap/3y are the eastward and northward components of the horizontal pressure 
gradient. For evaluation in the model, the pressure gradient terms must be 
approximated by finite differences. 

Geostrophic wind values are computed in the 4-D height range, by finite 
differencing of the 4-D pressure data, and in the Jacchia height range by 
evaluating the Jacchia model at 5 degree increments of latitude and longti- 
tude and taking finite differences of the resulting pressure. In a recent 
comparison between the GRAM-computed winds and observed winds at Eglin AFB, 
Florida, the mean deviation was 1 m/s EW and -16 m/s NS, with an rms devia- 
tion of 60 m/s between model and observed. Thus, the mean winds are modeled 
with fair accuracy, and the rms deviation is about the same as the wind 
perturbation magnitude expected on the basis of the GRAM perturbation model. 

2.6 Thermal Wind Shear 

The wind shear components 3u/3z and 3v/3z in the 0-25 km and above 90 
km height ranges are evaluated by the thermal wind equations 

3u/3z = -(g/fT) 3T/3y [ 2 - 8 ) 

3V/3Z = (g/fT) 3T/3X ( 2 - 9 ) 
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which is the usual form, leaving off a correction term in 9T/3z, which is 
normally small. The horizontal temperature gradient terms are estimated by 

finite differences in a similar manner to the pressure gradient components 
in equations (2.6) and (2.7). 

Thermal wind shears are also computed in the Jacchia height range in a 
manner similar to that described for the wind calculations. Again, however, 
for the reasons already discussed, these values should not be taken as precise 

Since the ordinary geostrophic winds are inversely proportional to the 
coriolis parameter f (which goes to zero at the equator), these relations give 
unrealistically large winds at low latitudes. To overcome this problem 
interpolation between about +15° and -15° latitude is used in the MOD-3 
version of GRAM. This interpolation limit, being on the "minimum geostrophic 
latitude," is specified in the program input. 

2.7 The Spherical Harmonic Wind Model 

The spherical harmonic equation, including terms through second order in 
co-latitude (<f>) and longitude ( 0 ), are: 

u(m, z, e, 4 > ) = 3] P Q (p) + a 2 P^p) 

+ [a 3 cose + a 4 sine] P n (p) + a 5 P 2 (p) 

+ [a g cose + a 7 sine] P 2] (p) ( 2 -10) 

+ [a g cos 2e + a Q sin 2e] P 22 (p) 

where p - cost , m is month, z is height, u is either the wind component being 

modeled, and the a coefficients all depend on both m and z. The P (p) are 

Legendre functions given by 
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( 2 . 11 ) 


P-j (y) = y 

P 2 (y) = (3y 2 -l)/2 

P^I (y) - (1 “ v ) 

P 2 -| (y) = 3y(l - y 2 ) 1//2 
P 22 (y) = 3(1 - y 2 ) 

With the substitution of (2.11) into (2.10), the spherical harmonic model 
representation for a wind component becomes 

u(m, z, e, <f>) = a.j + a 2 cos* + a 3 cose sin<j> 

2 

+ a, sine s i n<j> + a g (3 cos * - l)/2 

( 2 . 12 ) 

+ ag cose (3 sin* cos<|)) + a^ sine (3 sin^ coscf>) 

+ a 8 (2 cos 2 e - 1) (3 sin 2 <j>) + a g (2 sine cose) (3 sin 2 *) 

If (2 12) is the representation of the eastward wind component, then a completely 
analogous equation, with different coefficient values., is used to represent 
the northward wind component. Appendix A describes the data and processes 
used to evaluate the spherical harmonic coefficients which are used in the 
GRAM MOD-3. Values of the spherical harmonic coefficients used in the program 
are given in the "SCIDAT" data tape listing, in Appendix B. 

Spherical harmonic winds are computed at all latitudes, within the height 
range 25-90 km. Geostrophic winds are used at latitudes above a selected 
"minimum geostrophic latitude," over the height ranges 0-20 and above 90. Smooth 
fairing between spherical harmonic winds and geostrophic winds is carried out 
between 20 and 25 km and between 90 and 95 km. 
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2.8 Mean Vertical Wi nds 


GRAM also evaluates mean vertical winds from the slope of isentropic 
surfaces. On such surfaces, the entropy function ip is constant, where 4 , is 

^ = CpT + gz + (u 2 + v 2 )/2 = const. (2.13) 

Therefore, on isentropic surfaces 

dip/dt + ua^/9x + vdip/dy + wd\p/dz = 0 (2.14) 

and, if dip/dt is assumed zero, the vertical wind w can be solved for as 

w = - [ u 3 9 x + vdip/dy]/(d 4 >/dz) (2.15) 

By differentiation of (2.13), with the assumption that u and v are the geo- 
strophic winds u g and v g , and that au/3z and 3v/3z are given by the thermal 
wind relations, (2.15) becomes 

W = -Cp [u g (3T/3x) + V g (3T/ay)]/ 

{g + C p (3T/az) + (g/fT )[ v g (aT/3x) - u g (3T/3y)]} (2.16) 

Mean vertical winds evaluated by (2.16) are generally less than a cm/sec, 
and hence are realistic values for the large scale mean vertical winds affect- 
ing mean meridional circulation. 

2.9 The Quasi -Biennial Perturbations 

In the Mod-0 Global Reference Atmospheric Model, MRN data from 1964- 
1969 were used to evaluate quasi-biennial amplitudes and phases in the 
height range 25-65 km. The quasi -biennial period which produce minimum 
variance, when simultaneously evaluating the annual, semi-annual, and quasi- 
biennial variation, was found to be 870 days. For the Mod 2 version, the 
harmonic analysis was done the same way with MRN data for 1970-1972 added 

to the original data base. Again, the 870 day period was found to produce 
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minimum variance for the QBO winds, while a 900 day period did slightly 
better for the thermodynamic variables. In order to retain a single period, 
the original 870 day period was chosen as still the preferable value over- 
all. The revised quasi -biennial magnitudes and phases are listed in the 
"SCIDAT" data tape listing at the end of this report (Appendix B). 

2.10 The Two-Scale Random Perturbation Model 

The original single scale perturbation model in the Global Reference 
Atmosphere Model ( Justus et al . , 1974 a) was evaluated by the following met- 
hod: first the density perturbation p^' at the new location was computed 

from p-,' the density perturbation at the previous location by the relation 

(p 2 7p 2 ) = Mp-|7p-,) + Br-j ( 2 - 


where ^ and p ? are the known mean densities at the previous and new positions, 
A and B are determined from the required conditions, and r, is a random num- 
ber selected from a Gaussian distribution with mean zero and unit standard de- 
viation. The required conditions to be used in determining A and B are 

, ■ _ p „ „ (2.18) 

<p 2 p-, > " R ° p i ° p 2 

,2 2 (2.19) 

<p 2 > = °P 2 

where a ] and a 2 are the known standard deviations in density at the prev- 
ious and new location, and R is the known autocorrelation in density pertur- 
bations between the previous and new locations. Next (with analogous nota- 
tion as in (2.17) through (2.19), the new temperature perturbation was com- 
puted by 

(T 2 7T 2 ) - COy/T,) + D(p 2 75 2 ) + Er 2 (2 ' 20: 

In addition to the autocorrelation R (assumed the same for T' and o' in the 


If. 



original one-scale model) the cross correlation (R^),, was also maintained 

(through the coefficient 0 in equation (2.20)). The correlation (R ) „ as 

rmined from the known standard deviations and means by the Buell (1970) 
relation 

(r t ), = “"pW 2 - t<° n ) ? /5 y 3 2 - I(j t ),/t,] 2 
c C(o T ) 2 /i 2 ] (2 - 2 

Once the density and temperature perturbations were evaluated, the pressure 
perturbation was determined via 

(p 2 '/p 2 ) = (p 2 7p 2 ) + (t 2 '/t 2 ) (2.2; 

first order perturbation equation from the perfect gas law. In 
the original single scale perturbation model, wind perturbation components u' 
v were assumed to be uncorrelated with each other and with the thermodynamic 
variables, and hence were computed by relations analagous to equation (2.17). 

In the original one-scale model, only the total perturbations are con- 
sidered (e.g. p - p + p ) while in the new two scale model the perturbations 
are assumed to be made up of a large scale and small scale component (e.g. 

p = p + p L + p s ). To first order in the perturbations the state of the mean 
atmosphere is described by 


p = p R T (2.23) 

and the mean plus large scale perturbations by 

(P + P L ) = (p + p l ) R(T + T l ) (2.24) 

and the actual atmospheric parameters p, p, and T by 

P = p R T (2.25) 

Division of equations (2.24) and (2.25) by p on the left and by i R f on the 
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(2.26) 


right yields, to first order in the perturbations 

p^/p = C p / p ) + (T l /T) 

P s /P = (p s /p) + 

These results mean that the small scale and large scale perturbations each 

separately must obey the Buell triangle relationships for their magnitudes. 

Thus, analogous to equation (2.21), the correlations for large scale 

perturbations and R„ T for small scale perturbations are given in terms of 

p s s 

their respective magnitudes by 


R 

p 


l t l 


R 

P 


s T s 


(o /p) 2 - (a /p ) 2 - (o T /T) Z 
P L L 

2 (a /p)(a T /T) 

P L 'L 

(o /p)^ - (o /p) ~ (°j /T) 

p s IS s 

2 (a /p ) (a-r /T) 

P S S 


(2.28) 


(2.29) 


The large and small scale components are assumed to be independent so corre- 
lations such as R T , R T etc. are taken to be zero. 
p s T L p L s 

The density perturbations p L and p s ^ at the new position are thus com- 
puted from the known perturbations p L and p $ ^ at the previous position by 
relations analogous to equation (2.17) 

(pl 2 /p') - \(p Li / 5 ,> + \ r Ll (2 ' 30> 

(p, 2 /.-) - V’s/’l 1 + B s r s, <2 - 31) 

where A L , B^, A $ and B s can each be determined (as before) from the conditions 
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<0 4 \ = r l <»> V 2 V, 


2 2 
■^Pi >= a , 
L 2 P L c 


(2.32) 

(2.33) 


<P 


s 2 



R s (p) 



(2.34) 


where the density autocorrelations ( p ) and R s ( c ) are determined from the 
known horizontal and vertical scale of the large scale and small scale pertur- 
bations (see the following section on scales). Similarly, the temperature 
perturbations are computed (analogous to equation (2.20) by 


V f 2) = + + E L r L 2 (2.36) 

" C s (T s/V + D s^ p s 2 /p 2^ + E s r s 2 (2-37) 

where again D,_ and D $ are determined by the required cross correlations R T 
and R p l T l at the new Position, as computed from equations (2.28) and (2.29). S 
Once the density and temperature perturbations are computed, the pressure per- 
turbations are evaluated from equations (2.26) and (2.27). 


A further addition to the new model has been brought about by empiric- 
ally evaluated correlations R R r D T u 

U L V L* Ku s v s’ Ku L p l' and Ru p * n6W method of 

evaluating the velocity perturbation components is somewhat analogous to that 

employed for the temperature component. The equations used are 



F L u L, + Vl 2 + H L r u 


F s u s, + Vs 2 + H s r u, 


(2.38) 

(2.39) 
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and 


»L Z = 'l V L, + J L U L 2 + K L r v L 


v = I v + J u + K r 
s 2 s S 1 s s 2 S v s 


(2.40) 

(2.41) 


where the coefficients G^ and G $ are determined from the newly evaluated cor- 
relations R and R and the coefficients J L and are evaluated from 


Vl 


U p 

S M S 


the correlations R and R . 

U L V L s s 

For evaluation of the coefficients C, D, and E in (2.36) and (2.37), 
and the coefficients F through K in (2.38) through (2.41), these equations are 
successively multiplied through by the perturbation quantities on the right- 
hand side (see Appendix B in Justus et al , (1974 a)). The relations thus 


established for the coefficients A through K (with analogous equations for 
both large scale A^ - and small scale A,. - K $ ) are 


A 

B 

C 

D 

E 

F 


R( P ) a /a 
p 2 P 1 


[1 - R 2 (p)] 1/2 


[ r (t ) °t /°t ] {n - Rj ^ 

2 ‘l 2 P 2 1 1 P 1 


[1 - r 2 (t) r 2 t ]} 
1 1 P 1 


[R(T) o t a T - Cay ]/ (A R t o T ) 
T 2 T 1 T 1 'l p l ‘l 

r 2 r 2 2 n 2 2 

Lo t - C a T -Do 


p 2 


2 C D R(T) R t o T o ] 
T l p l T 1 p 2 


1/2 


^u^u^ ^ [R(u) ’ R(p) R u 2 p 2 R u lPl ]/ 
[i - r2 (p) R 2 iP] ]) 


(2.42) 

(2.43) 

(2.44) 

(2.45) 

(2.46) 

(2.47) 
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G 

H 

I 

J 

K 


(R(U) °U 2 - F ^MRIp) R Vi . ] 


[a u Z - f2 % 2 - Z 2 o 2 - 
u 2 u l p 2 


2 F G R ( P )R 


M a a ] 

u l p l p 2 U 1 


1/2 


NV ICR(V> - RM r v 2 r v, p ,]/ 

tl - R 2 <p> R Vjpi J} 

CR(V) % - 1 V [R <’> R v, 0l ^ 
ta v 2 - I 2 O 2 - J Z o 2 - 

V 2 V 1 p 2 

2 I J R (p) R s a 
V 1p 1 p 2 V 1 


1 1/2 


(2.48) 

(2.49) 

(2.50) 

(2.51) 

(2.52) 


where the autocorrelations of density R ( p ), temperature R(T) and wind R(u) 
(R(u) and R(v) are assumed equal), are determined from the horizontal and 


vertical scales 

* *"H * L Z ‘ * **z anc * *"H by the relations 

p p T T U u 


R(p) 

= e *P { - [(ax 2 + Ay 2 )/L 2 + az 2 /L 2 ] 1/2 } 

(2.53) 


p p 

R(T) 

- exp { - [(ax 2 + Ay 2 )/L 2 ^ + az 2 /L 2 ] 1/2 } 

(2.54) 

R(u) 

= exp { - [(ax 2 + Ay 2 )/! 2 + az 2 /L 2 ] 1/2 } 

u z u 

(2.55) 
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3. SAMPLE RESULTS 


The ability of the GRAM program to model pressure, density, and tempera- 
ture fields has been well documented in earlier reports (Ju stus, et _aL, 

1974 a, b, 1975, 1976). The results shown here are confined to the new 
spherical harmonic wind model simulations of wind components in the 25 to 90 
km height range. Figures 3.1 through 3.12 show observed and spherical 
harmonic model winds at three low-latitude sites (Kwajalein, Ft. Sherman and 
Ascension) at mid-latitude and high-latitude northern hemisphere sites 
(Kennedy SFC, and Ft. Churchill, respectively) and at a southern hemisphere 
site (Woomena), for the months of June and December. In all cases, the 
spherical harmonic model winds are seen to reproduce fairly well the features 

at the observed winds. 

Data sources and methods used to evaluate the spherical harmonics appear 
in Appendix A. The spherical harmonic coefficient values are given in the 
SCIDAT tape listing in Appendix B. 
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Figure 3.2. As in Figure 3.1 for Fort Sherman 
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Figure 3.7. As in Figure 3.1 for December, Kwajalein. 
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Figure 3.9. As in Figure 3.1 for December, Ascension. 
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Figure 3.10. As in Figure 3.1 for December, Kennedy SFC. 
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Figure 3.11. As in Figure 3.1 for December, Fort Churchill. 
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Figure 3.12. As in Figure 3.1 for December, Woomera. 
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4. USERS MANUAL 


The Global Reference Atmospheric Model (GRAM) program is designed to 
produce atmospheric parameter values either along a linear path (to be called 
a profile) with automatically stepped constant height, latitude, and longi- 
tude increments, or along any set of connected positions (to be called a tra- 
jectory) which must be input individually into the program. 

There are three general types of input to the GRAM program: (1) A set 

of three cards, called the initial data, which contain the values of the prog- 
ram options, the initial position, the profile increments, and other infor- 
mation required before the calculations are begun, (2) A data tape (SCIDAT) 
containing parameter values for the Groves (1971) model, the stationary per- 
turbations (deviations from the Groves model, to produce longitude varying 
monthly means), and random and quasi -biennial perturbation parameter values, 
and (3) The data tapes with one data file for each month, containing pro- 
files of monthly mean pressure, density, temperature, and their variances 
from the surface to 25 km, for the entire globe. If it is desired to compute 
atmospheric parameters along a trajectory instead of a linear profile, then 
a fourth type of data - the trajectory times and positions - must be input. 

In terms of program function, the major elements of the GRAM program 
are the main segment (GRAM), the subroutine SCIMOD, which is a driver for all 
of the atmospheric evaluation subroutines, and SETUP, a subroutine used to 
read the SCIDAT data tape, and load the necessary starting conditions for 
execution. Figure 4.1 shows a simplified schematic of the main segment and 
illustrates the fi notion of the SETUP and SCIMOD subroutines. 

Output of the GF«* M program consists of monthly mean pressure, density, 
temperature, wind and wind shear, total (mean plus perturbation) values of 
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Figure 4.1: Simplified flow chart of the GRAM program. 
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pressure, density, temperature, winds, perturbation values, and magnitudes. 

Complete discussion of the input, output, and program operation char- 
acteristics for the GRAM program are given in the following sections of the 
users manual. 

4.1 The 4-D Data Tapes (0-25 km) 

The description contained in this section was paraphrased from the 

4- D program users manual ( Fowler and Willard . 1972). For more information 

on the 4-D section of GRAM, consult that document and Spiegler and Fowler 
(1972). 

The world-wide meteorological data set developed for the 4-D model 
by Allied Research Associates is stored on three 7-track, 800 bpi binary 
tapes labelled WW1A-WW3A. Each tape contains four files of data where one 
file represents one month; WW1A contains months 1-4, WW2A contains months 

5- 8, and WW3A contains months 9-12. A 13th month containing the annual ref- 
erence period has been added as a fourth tape. 

Within each file are 3490 records representing the values at indi- 
vidual grid points. These points are grouped into three grids: 288 points 
on the northern hemisphere equatorial (EQN) grid; 1977 points on the north- 
ern hemisphere (National Meteorological Center) grid; and 1225 points on 
the southern hemisphere (SH) grid. On the NMC grid, the data were computed 
at NMC points and stored in the order given by the NMC grid table shown in 
the SC I DAT data tape listing in Appendix B. On the other two grids, the 
data was given at 5° latitude-longitude intersections westward from the 
Greenwich Meridian to 5° east. The EQN grid covers the latitudes from 0° to 
15° north with points occurring in the following order: 1-4 = Lon. 0, Lat. 

0, 5, 10, 15; 5-8 = Ion. 5W, Lat. 0, 5, 10, 15; ... 285-288 - Lon. 5° E, 

Lat. 0, 5, 10, 15. The SH grid contains all data from 5° south to the south 
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pole as follows: 1 = South Pole, 2-18 = Lon. 0, Lat. -5 to -85; 19-35 = 

Lon. 5° W, Lat. -5 to -85; ... 1209 - 1225 = Lon. 5° E, Lat. -5 to -85. It 
should be noted that the south pole is given only once, as the first point 
of the SH data set. 

Each record consists of 106 36-bit words where the first 104 words 
contain the computed data for a point and the last two are identifiers. 

All data values are multiplied by 100 and converted to integer; they are 
then packed with two 18-bit values to a word. The data is arranged by level 
for each parameter; thus, the first 13 words contain the pressure means from 
the surface to 25 km and the next 13 words contain the pressure variances 
for the same levels. This pattern continues for the 26 levels of tempera- 
ture means and variances, moisture means and variances, and density means 
and variances. 

Word 105 contains the latitude and longitude of the point in question. 
There are integer values that have been multiplied by 10; each occupies 18 
bits of the word. The latitude is always positive (sirfce the southern 
hemisphere is identified by grid), and the longitude is always west. 

The last word contains three 12 bit integer values. The left-most 
group of bits is the homogeneous moisture region in which the point lies, 
the center group is the point number, and the right-most group of bits is 
the month. It should be noted that the points are numbered within the grid 
that contains them, and not by their location on tape. Thus the point num- 
bers run from 1-288, 1-1977, and 1-1225, not from 1-3490. Figure 4.2 shows 
the tape structure for one month. 

4.2 The SCI DAT Data Tape 

This section describes in detail the data contained on the SCI DAT 
data tape. A listing of this tape, and a synopsis of the data contained on 
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EOF Denotes end of file mark. N - Word 106 Containing Homogeneous 

Region Number, MSF Point Number, 
and Month Number 



it are given in Appendix B. 

NMC Grid Data . This data set gives the 4-D northern hemisphere point 
number and the dual index for the corresponding NMC location. The NMC grid 
locations form an octagonal array, centered on the North Pole. The points 
are at square grid locations on the polar projection used for the NMC grid. 

A conversion between the latitude and longitude (treated as polar coordinates 
on the flat NMC grid plane) and the NMC grid indices (treated as Cartesian 
coordinates on the projection plane) is accomplished by a polar to Cartesian 
coordinate transformation, via equations programmed into the 4-D model. The 
NMC grid data on the SCIDAT tape merely establishes the equivalence between 
the sequential 4-D NMC point number and the two-dimensional x-y NMC grid 
point location. The NMC grid data constitute the first file on the SCIDAT 
tape. An end of file marker appears on the tape at the end of the NMC grid 

data. The NMC grid data file contains 396 FORTRAN readable records with 
code "N" and 15 integers (A2, 1517 Format) in each record. 

Groves Data . The Groves (1971) data for monthly mean pressure, den- 
sity, and temperature are tabulated at 10 degree latitude intervals from 0 
to 90° for each month. The yearly average Groves data is coded as month 13. 
The southern hemisphere data is the same as the northern hemisphere data dis- 
placed by 6 months. Annual mean (month 13) data is the same for both north- 
ern and southern hemispheres. 

The format of the Groves data is the same as in Groves (1971) origi- 
nal report, except that a prefix code P, D, or T has been added at the front 
of each record. Each record contains the code, the month, the height in km 
and the 0, 10, 20, ...,90° latitude values of the parameter expressed as a 

three digit integer, with an exponent common to all of the values in the 
field appearing at the end of the record. Thus a value of 276 with an expon- 
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ent at the end of the record of -6, would be the same as 276 x 10" 6 = 

“4 9 

2.76 x 10 . Pressure data are in units of N/m , density values are in 

3 

kg/m , and temperatures are in °K. The Groves data set contains 702 
FORTRAN readable records with 13 integer values (1317) in each record 
(following the code word P, D, or T, in A2 format). 

Stationary Pertu rbations . The stationary perturbations are latitude- 
longitude dependent relative perturbations to be applied to the Groves val- 
ues, considered to be the longitudinal mean value. Data for each of 12 
months and for the annual reference period (month 13) are given for the 
northern hemisphere latitudes. Southern hemisphere data are the same as the 
northern hemisphere values displaced by 6 months. 

Each record contains the code S, the month, the height in km, the 
west longitude, in degrees, and then 15 values of stationary perturbations 
in per mill (//10). The first five of the values are for pressure pertur- 
bations at latitudes 10, 30, 50, 70, and 90. The next five values are for 
density, and the last five values are for temperature. The monthly mean val- 
parameter y at any latitude and longitude can be computed from the 
Groves value G at the latitude and the stationary perturbation s (in per 

y y 

mill) at the latitude and longitude by the relation 

y m = G y (1 + V 100 °) (4.D 

Note that the stationary perturbation values at 90^ latitude are always zero. 
However, there is a place for 90° values on the data tape, so that if a sys- 
tematic departure from Groves values is desired at the poles, a set of 
stationary perturbation data reflecting this condition could be developed 
and put on the tape. The stationary perturbations listed on the Mod-3 SCIDAT 
tape have been revised, as described in Section 2, by the addition of data 
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read from 1964, 1965, and 1972 upper air charts. 

The Groves data and stationary perturbation data constitute the sec- 
ond file on the SCIDAT tape. An end of file marker appears at the end of 
the stationary perturbation data. The stationary perturbation code S data 
consists of 1248 FORTRAN readable records, with 18 integer values (1817) 
(following the code word S A2 format). 

The Random Perturbation Data . Random perturbation magnitudes (stan- 
dard deviations) are latitude dependent only. Each code R record has the 
code, the month (1-13) and the height in km, followed by 15 values of random 
perturbation magnitude, five for pressure (in per mill, at latitudes 10, 30, 
50, 70, and 90), five for density, and five for temperature. These data 
give the relative standard deviations a /p, a /p, and o t /T, for use in the 

p p i 

random perturbation model . 

The code RW data are similar, except that only ten wind values appear 
in each record (after the code, month, and height): five for eastward wind 

magnitude (in m/s at latitudes 10, 30, 50, 70, and 90) and five for north- 
ward wind magnitude. 

The code R and RW total perturbation magnitudes have been revised by 
the incorporation of new data sources, as described in Justus and Woodrum , 
(1975). The code R data have also been subjected to Buel 1 (1970, 1972) 
adjustment, also described in Justus and Woodrum (1975). 

The code R and RW data constitute the third file on the SCIDAT tape. 

An end-of-file mark appears on the tape at the end of the code RW data. 

The code R data consist of 260 FORTRAN readable records with 17 integer 
values (1717) in each record following the code word R (A2). For the 
code RW data, there are 325 records with the code word RW and 12 integers 
(A2 , 1217). 
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Large Scale Frac tion Data . From daily difference analysis described 
in Section 2, the fraction of the total variance (a 2 from code R and RW 
data) contained in the large scale perturbations has been determined as a 
fraction of height and latitude. Separate evaluations by month were also 
made, but were not found to be significantly different from the annual aver- 
ages. Therefore the SCI DAT tape contains only the annual average fraction 
(expressed as per mill) of total variance contained in the large scale. 

Large scale and small scale magnitudes and a $ are computed from the 
fractional data f L in per mill (code P for pressure, density, and tempera- 
ture or code PW for winds), by the relations 

°L = 'yiOOO aj (4,2) 

a s = ’ / T^ - yi000 a T (4.3) 

where a T is the total perturbation magnitude (code R or code RW data). The 
code P and code PW data sets each contain 25 FORTRAN readable records, with 
code word P or PW, followed by 17 integer values (A2, 1717) on each record. 

Density-Velocity Correlations . Daily difference analysis described 
in Section 2 was also used to evaluate the cross correlations R and R 

Up Vp 

for use in the velocity perturbation model (equations (2.38) - (2.41) and 
(2.44) - (2.50)). Both large scale and small scale values of the density- 
velocity correlations were evaluated, and are given on the SCIDAT data tape 

(codes CL and CS) in per mill (i.e. divide by 1000 to get correlations in 
the range -1 to +1 ) . 

The code P large scale fraction data and the code CS and CL density- 
velocity correlation data constitute the fourth file on the SCIDAT tape. An 
end-of-file mark appears on the tape at the end of the code CL data. The 


43 



code CS and CL data consist of 50 FORTRAN readable records, with code word 
CS or CL, followed by 12 integer values (A2, 1217) in each record. 

The Quasi-Biennial Oscillation (QBO) Data . The QBO data consists of 
height and latitude dependent amplitudes and phases for quasi-biennial vari- 
ations in pressure (QP), density (QD), temperature (QT), and eastward and 
northward wind components (QU and QV, respectively). The amplitude of the 
QBO thermodynamic parameters are in per mill U/10). The amplitudes of the 
QBO wind components are in decimeters per second (0.1 m/s). The phases of 
all of the QBO parameters are measured in days after January 0, 1966 for the 
occurrence of the first maximum value. Since the period of the QBO varia- 
tions is taken to be 870 days, the phases could vary from 0 to 870. 

Each QBO data record contains the code, the height in km, the ampli- 
tude and phase for 10° latitude, the amplitude and phase for 30° latitude, 
etc. out to the amplitude and phase for 90° latitude. There are 80 FORTRAN 
readable records in the QBO data set. Each record contains 11 integer values 

followed by a code word (OP, QD, QT , QU, or QV). 

An end of file mark appears at the end of the code QV data. 

The Spherical Harmonic (SP) Data. The spherical harmonic coefficient 
data consists of values of the 9 spherical harmonic coefficients (equation 
2.12) for both northward and eastward wind components. Each record consists 
of the code (SP), the height (km), the month, and 9 spherical harmonic 
coefficients (in cm/s). Eastward wind component coefficients are first, 
followed by northward wind component coefficients. 

A final end-of-file mark appears at the end of the SP data. Appendix 

B gives a brief summary of the data on the SCIDAT tape and a listing of all 

the values appearing in the tape records. 
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4.3 The Initial Input Data 

The initial input data consists of two free field (no set format with 
commas after each number) cards containing initial position data, program 
options, and other information required to begin computation, plus an optional 
third free field card to give initial random perturbation data if random 

perturbations are to be computed, plus an optional set of trajectory 
position data cards (followed by a backup card), if trajectory positions 

are to be read in rather than a linear profile generated automatically in 
the program. Appendix C gives a brief summary of the input characteristics, 
a summary of the data deck setup, and some sample input and output for the 
program. The following gives a more detailed description of each program 
input card. 

Input Card Hum ber 1 . The first input card, read in by the main program 
segment PROFILE in free field format contains the following information. 
Designation R indicates real quantities, I denotes integer quantities. 

^ ■ Initial Height (R) : The initial height in km for the beginning 

point of the profile or trajectory. This can be any non-negative real num- 
ber. Atmospheric parameters are never evaluated at the first position, 
which is used only to establish the initial conditions. 

2* Initial Latitude (R): The latitude of the initial position in 

degrees, with southern latitudes negative. If the initial latitude, or any 
subsequent latitude is greater than 90° in absolute magnitude, then a trans- 
formation 

lat = (180° - 1 1 at ( ) ( 1 at/ (4.4) 

Ion = Ion + 180° (4.5) 

is made. 

3 - Initial West Longitude (R): The west longitude of the initial 
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position in degrees. East longitude can be put in as negative or converted 
to 0 - 360° west longitude. If negative (east) longitudes are input they 
are converted to the 0 - 360° scale before being used by the program. At 
any time during the run if a longitude gets outside the 0 - 360° range it 
is put back into that range by adding or subtracting 360°, as necessary. 

4. F10.7 (R) : The solar 10.7 cm radio noise flux in units of 10 ~^ 

watts/m 2 (the normal units for this parameter) at the time for which the 
atmospheric values are to be computed. This factor is used only in the 
Jacchia section, so a value of zero can be used on input if the height never 
goes above 90 km. A value of 230 for both design steady state conditions 
and for maximum conditions may be used, or consult the Aerospace Environ- 
ment Division (AED) of Marshall Space Flight Center (MSFC) for monthly pre- 
dictions. 

5 . Mean F10.7 (R): The 81 day mean solar 10.7 cm radio flux. This 

parameter is used in the Jacchia section to compute the nighttime minimum 
global exospheric temperature (equation (14) in Jacchia , 1970). Use zero 
if the height does not go above 90 km. A value of 230 may be used for both 
design steady state or maximum conditions, or consult the AED or MSFC for 
monthly predictions. 

6. AP (R) : The geomagnetic index a p , used to compute a geomagnetic 

correlation to the exospheric temperature, in equation (22) of Jacchia , 
(1970). Use zero if the height does not go above 90 km. A design steady 
state value of 20.3 and a maximum condition value of 400 may be used for 

a , or consult the AED at MSFC for monthly predictions. 

7-9. Date (I) : The date, for the starting time of the trajectory 

or profile evaluation in month/day/two digit year form, as three integer in- 
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put values. The day of the month and the year have no direct effect on the 
program calculations, except in the case of the quasi-biennial oscillation 
terms. For the annual reference period, use month 13. The quasi-biennial 
terms are automatically set to zero if month 13 is used. The month is used 
to establish which Groves data, stationary perturbation data, and random 
data (including large scale fractions and velocity-density correlations) to 

load from the SCIDAT data tape into the working arrays. The program will 
work more efficiently if multiple trajectories or profiles are evaluated 

during one run operation and the months are the same. (This avoids repeated 
look-up of the Groves, stationary perturbation, and random data from the 
SCIDAT tape.) 

Greenwich Time (I): The Greenwich mean time for the start- 

ing position in hours, minutes, and seconds as three integer values. Only 
the Jacchia section is directly affected by the time of day, so unless the 
height goes above 90 km, the starting time would serve merely as a reference 
parameter for the particular run being done. Greenwich time corresponding 
to a local time of 0900 hours should be used for design steady state Jacchia 
section conditions, and for maximum conditions the local time should be 
taken as 1400 hours. 

13. Latitude Increment (R): If a linear profile is to be generated 

automatically this is the latitude increment (in degrees) between successive 
profile positions. The new latitude would be the old latitude plus the 
latitude increment. For a profile with decreasing latitude (going southward) 
the increment must be negative. Use zero if separate trajectory position 
input is to be read in. If a vertical profile (i.e. changing only height) 
is to be evaluated, then use zero latitude increment. 
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14. West Longitude Increment (R) : If a linear profile is to be 

generated automatically this is the west longitude increment (in degrees) 
between successive profile positions. The new longitude will be the old 
longitude plus the longitude increment. For a profile progressing eastward 
use a negative increment. Use zero if separate trajectory position input is 
to be read in. If a vertical profile is to be evaluated, then use zero 
increment. 

15. Height Increment (R): The height decrease in km between suc- 

cessive positions, for an automatically generated linear profile. The pro- 
files normally are generated downward (descending height). (New height = 
old height minus the height increment). If an upward generated profile is 
desired the height increment should be negative. Downward generated pro- 
files will be evaluated until the height is incremented to a negative value 
or until the maximum number of positions (item 16, 1st card) is exceeded. 

16. Maximum Number of Positions (I): The maximum number of profile 

positions to be generated automatically. This does not include the initial 
position, for which no atmospheric parameters are evaluated. Use zero if 
trajectory positions are to be read in. 

17. Time Increment (I): The time displacement (seconds) between 

successive automatically generated profile positions. This would normally 
be set to zero, but could be used as a counter to be printed out in the 
time position with the output. For trajectories the time for each position 
is read in with the position data (see trajectory input section below). 

The hours, minutes, and seconds parameters (read in as items 10-12, 1st 
card) are updated according to the new time generated by the time increment. 
However, only the elapsed time in seconds is printed out on the present out- 
put. 
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18. Trajectory Option (I): This option tells the program whether a 

trajectory or a linear profile is to be evaluated. A value of 0 means a 
linear profile is to be generated automatically from the parameters read on 
the first card. A value greater than zero means that trajectory position 
data must be read in to determine the positions at which atmospheric para- 
meters are to be evaluated. The unit from which the trajectory data are to 
be read is specified by the (non-zero) trajectory option. Thus, if trajec- 
tory data are to be read in from cards, use a trajectory option of 5 (the 
card input unit). 

19. Output Option (I ) : This option tells the program whether or 

not to produce non-print output of the atmospheric parameters (see the out- 
put description section). Non-print (i.e. disk or cards) output is conven- 
ient to use as input to plotter programs. A value of 0 means no non-print 

output. A value greater than 0 means to output the data on the unit number 
equal to the output option value. 

20. Minimum Geostrophic Latitude (R): Below this latitude (in 

absolute magnitude) the second order geostrophic relations are used. Above 
this latitude, or above 90 km, only the usual geostrophic relations are 
used. 

With normal numbers of decimal places and no unnecessary blank 
spaces, the above 20 items should fit onto one card. However, if they 
occupy more than the 80 columns allowed on one card, they may be spread 
out onto two cards if the following rules of free field input are observed 
on the first of the two cards: (1) Do not put a comma after the last num- 

ber appearing on the first card. (2) If the last number on the first card 
is an integer, it should be right justified to column 80. For input on 
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other computers, consult your operations manual for characteristics of free 
field input. 

Input Card Number 2 . The second input card is read in by the sub- 
routine SETUP and contains various unit numbers to be used and options con- 
trolling the random and quasi-biennial calculations. The unit numbers are 
the parameters used in read statements in the FORTRAN program to control 
which file is being read from. The unit numbers are required in the input 
in order to give maximum flexibility in choice of I/O devices for the pro- 
gram. All input items on card number 2 are integers. 

1. Groves Input Unit: This is the unit number of the SCIDAT tape 

file. If the SCIDAT tape has been assigned by the UNIVAC control statements 

0 ASG, T SCIDAT, T, U1961 N 
@ USE 3, SCIDAT 

where U 1 961 is the reel number for tape SCIDAT, then the Groves input unit 
number should be 3 on this input card. The Groves and stationary pertur- 
bation data must be read from the SCIDAT tape. Later options on this card 
allow the NMC grid data, the random perturbation data, and the quasi-bien- 
nial data each to be read from other files. 

2. Random Input Unit : This is the unit number for the random per- 

turbation standard deviations (and the large scale fraction data and den- 
sity-velocity correlations). If this unit number is the same as the Groves 
input unit number, then all of the random perturbation data are read from 
the SCIDAT data tape. Otherwise all of the random perturbation data are 
read from the file for whatever the unit number is set to. For card input, 
the unit number should be set to 5. The SCIDAT tape is read with NT RAN , 
but if alternate random data are read in from a different file, the file 
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must be FORTRAN readable with format 

IX, Al, 12, 14, 3(1 X , 514) 

for the random pressure, density, and temperature data (see Appendix B and 
Section 4.3 for which values must go in each record). For the random wind 
data the FORTRAN readable format for the alternate data is 

IX, A2, 12, 14, 2 ( 1 X , 514) 

If the random data input unit is different from the Groves input 
unit, then the code P and PW large scale fraction data and code CS and CL 
density-velocity correlation data must follow (after an end-of-file) the 
code RW data on the random input unit. The FORTRAN readable format for the 
large scale fraction (code P) data is 

IX, Al, 12, 14, 3(1X, 514) 

The format for the code PW data is 

IX, A2, 12, 14, 2(1X, 514) 

The format for the CS and CL data is 

IX, A2, 12, 14, 2(1 X, 515) 

See Appendix B and Section 4.3 for description of the values which must go 
in each of these records. 

All of the random perturbation data, random pressure, density, and 
temperature data, random wind data, large scale fraction data, and density- 
velocity correlation data must be read in from the same file, either all 
from SC I DAT , or all from the alternate FORTRAN readable file. 

3- QBO Input Unit : If the QBO data parameters are to be read in 

from the SCIDAT data tape, this unit number is set the same as the Groves 
input unit. If alternate QBO parameters are to be read in the QBO unit 
number can be any FORTRAN readable file. Use Unit 5 for card input. The 
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format for all of the alternate QBO input is 

IX, A2 , 13, 5(14, 15) 

(See Appendix B and Section 4.3 for which data values must go into each 
record). All of the QBO pressure, density, temperature, and wind data must 
be read from the same file, either all from SC I DAT or all from the alter- 
nate QBO input file. 

4 . 4 -p input Unit : This is the unit number for the 4-D data tape. 

Any available unit number can be used. If the 4-D tape WW1A, containing 
the January data, has been assigned by the control statements 

@ ASG, T WW1A, T, U 2400 N 
@ USE 4, WW1 A 

then the 4-D input unit number is 4. 

5. Random Option : This option tells the program whether or not to 

compute random perturbations. If the value is 1 random perturbations are 
computed. If the value is 2 then random perturbations are not computed. 

If any values other than 1 or 2 are input the run is terminated with a 
message "ERR0R IN SETUP INPUT" and a dump of the parameters most recently 
read in. 

6. QBO Option: This option tells the program whether or not to 

compute QBO perturbations. If the value is 1 QBO perturbations are com- 
puted. For 2 no QBO perturbations are computed, and for any other values 
the "ERR0R IN SETUP INPUT" and dump of most recent parameters read in is 
gi ven . 

7. First Random Number : This number is required as a starting 

parameter for the random number generating subroutine RAND. Any odd posi- 
tive integer can be used. Use a value of 1 for a standard design appli- 
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cation run. Provided all other input is the same, a given value for the 
starting random number will always produce the same random perturbation 
output. Therefore, to get a set of different perturbations along a given 
single trajectory, a set of different starting random numbers should be 
used. Note, however, that if any other parameters are changed (different 
spacing along the trajectory, different starting position, etc.) then the 

same starting random number will produce a different set of random pertur- 
bations. 

8 * NMC Read Option : This option tells the program whether to read 

the NMC grid data from the SCIDAT data tape (value 0 for the option) or from 
an input card file (any non-zero value for the option). 

9 * 4-P Scratch Unit: In order to save array space the 4-D profiles 

required to interpolate to the 5° x 5° grid locations are read from the 

tapes to this scratch file rather than being put into arrays. The unit 

* 

number for this scratch file can be any available unit. Normally the file 
is a temporary drum file, and, if so, does not (on the UNIVAC) have to be 
assigned (@ ASG) before execution of the program. 

10* NMC Grid Point Scratch Unit: Also in order to save computer 

storage, the NMC grid point array read in from the SCIDAT tape (or from 
cards) is stored in a temporary scratch file (usually on drum). If the 
drum scratch file is used, it does not have to be assigned (on the UNIVAC) 
before execution of the program. 

Input Card Number 3 . This card is read by the SETUP subroutine and 
contains starting values for the random perturbation parameters at the 
initial position. If random perturbations are not to be computed (Random 
Option = 2), then this card should not be put in. All values of this free 
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field format card are real. For a normal design application the values on 
this card should all be zero, unless the run is to be a continuation of a 
previously run trajectory or profile segment, in which case the output ran- 
dom parameters of the last output position are input, and the last output 
position becomes the initial position of the new run. 

1-6. Initial PL, PS, DL, PS, TL, TS : These are initial values of 

random relative pressure (p'/p)» density (p'/p)> and temperature (T'/T) in 
percent for the large scale (L) and small scale (S) components. These are 
starting values for the initial position. Use zero for standard design 
applications . 

7-10. Initial UL, US, VL, VS : Initial values of the random east- 
ward (U) and northward (V) random wind components in m/s for the large 
scale (L) and small scale (S) components. Use zeros for standard design 
applications. 

Trajectory Input . The free field trajectory position input and back- 
up record are put in only if a trajectory is to be evaluated, rather than a 
linear profile, generated automatically in the program from information on 
the first input card. There is no limit to the number of trajectory posit- 
ion records which can be put in. The program continues evaluating the atmos- 
pheric parameters and looping back to read a new trajectory position until a 
position below the surface is reached, or until the trajectory backup record 
is reached. Each free field trajectory record has the time (integer seconds), 
the height (kilometers), the latitude (degrees, southern latitude negative), 
and the west longitude (degrees, 0-360° or east longitudes negative). Any 
east longitudes read in as negative values are converted to the 0-360° sys- 
tem before being used by the program. The trajectory backup record has the 
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same free field form as a regular trajectory record, except any negative value 
for height is used. The negative height terminates the loop which evaluates 
atmospheric parameters and reads a new trajectory record. If a trajectory 
height goes negative, then any remaining trajectory input cards are read and 
ignored. The trajectory input can either be input from cards (trajectory 
option = 5) or form any other unit (with trajectory option = unit number). 

The trajectory option is item 18 on card #1. 

4.4 Output of the Program 

The first few lines of print output are primarily a listing of the 
input parameters. Following a heading which describes each output value for 
the trajectory or profile evaluations, the position, time monthly mean and 
total pressure, density, temperature, and winds are listed for each position. 
The thermal wind shear for the monthly mean winds, the percent deviation 
from the standard atmosphere (p, p, and t), the mean vertical wind and the 
perturbation data are also given for each 

position. The perturbation data consist of the stationary perturbations, 
the quasi-biennial values at the position and time, the quasi-biennial mag- 
nitudes, the random perturbation values, and the random perturbation stan- 
dard deviations. Optional non-print (e.g. disk or punch) output for values 
at each position is also available to be used for input to plotter programs, 
or for other purposes. 

Heading Information . Primarily the heading information contains a 
listing of the input data values. However, there are some changes from the 
values input. If an east longitude is put in as a negative value, -180° < 
lat < 0°, then it is converted to a west longitude in the 0-360 range before 
the heading is listed. The program evaluates the initial random pressure. 
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density, temperature and wind standard deviations and the initial density 
velocity correlation from data on the SCIDAT data tape, and lists the com- 
puted values on the heading. The Julian date is computed by the program 
from the input date and is also listed with the heading information. The 
Julian date is required by the Jacchia and QBO sections of the program. If 
month 13 (annual reference period) is input, then the Julian date is set to 
zero. (The Jacchia section takes the exospheric temperature to be 1000° K 
and the QBO section is bypassed if month 13 is input). 

Position and Time Output . Positions and times as generated by the 
automatic linear profile features or as input by the trajectory input cards 
are listed on the output. The time is given in seconds. Within the program, 
the input time in hours, minutes, and seconds are updated in that form also. 
However, only a continuously increasing time in seconds is printed out. If 
time in hours, minutes, and seconds were desired, these variables could 
easily be printed out by adding them to the output list. All output west 
longitudes are converted to the 0-360 range before being printed out. If a 
latitude greater than 90° in absolute magnitude is generated (or input) 
then a transformation 

1 at = (180° - 1 1 at | )( 1 at/ 1 1 at | ) (4.6) 

Ion = Ion + 180° (4.7) 

is made. 

Monthly Mean Data . The monthly mean values of pressure, density, and 
temperatures, consist of either: (1) values from the 4-D data tapes if the 

height is below 25 km, (2) the sum of Groves plus stationary perturbation 
values if the height is between 30 and 90 km, (3) an interpolation between 
4-D at 25 km and Groves plus stationary perturbations at 30 km if the height 
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is between 25 and 30 km, (4) Jacchia model values if the height is above 
115 km, or (5) faired values between Groves and Jacchia if the height is 
between 90 and 115 km. 

The percent deviations from the U.S. 1962 Standard Atmosphere are 
evaluated by using standard atmosphere values computed by the subroutine 
STDATM. The percent deviations are evaluated by the relations 100(T - T )/ 

T $ , 100(p - p $ )/p s , and 100(p - P s )/P s » where the subscript s refers to the 
standard atmosphere values. This subroutine accurately reproduces the tabu- 
lated U.S. Standard Atmosphere 1962 values to within an accuracy of better 
than 0.2 % above 90 km. The STDATM values are based on a model of parabolic 
segments for the height variation of the molecular weight above 90 km. The 
subroutine reproduces the tabular values even more accurately in the height 
region below 90 km, where the molecular weight is constant. Since the U.S. 

1962 Standard Atmosphere is not defined above 700 km, the percent deviations 
printed out for heights above 700 km are zero. 

The thermal wind shear values are values of du/dz and 3v/sz for the monthly 
mean geostrophic wind (see Section 2). The wind values, computed from the 
usual geostrophic wind equation or the second order geostrophic relation if 
the latitude is less than the input value of minimum geostrophic latitude, 
are determined by horizontal gradients of the monthly mean pressure. The 
thermal wind shear components, computed by the thermal wind equations, are 
determined by the horizontal gradients of the monthly mean temperature. 

Thus, a comparison of numerically differentiated geostrophic mean winds and 
the thermal wind shear serve as a check of the mean pressure and temperature 
fields. The mean vertical wind is evaluated, as described in Section 2, by 
combinations of horizontal and vertical temperature gradients and the geo- 
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strophic winds. 


The Total (Mean Plus Perturbation) Data. The parameter values listed 
under the heading of "Mean Plus Perturbations" are the monthly mean values, 
as defined above, plus the random perturbations, plus (if the height is be- 
tween 10 and 90 km) the quasi -biennial perturbations. These mean-plus-per- 
turbation values represent values which would be typical "instantaneous" 
values of the pressure, density, temperature or winds. The percent devia- 
tions from the U.S. Standard atmosphere are computed in the same way as for 
the percent deviations of the monthly mean values from the standard atmos- 
phere. 

Perturbation Values . The data under the "Perturbation Values" head- 
ing are the various perturbation values, magnitudes, and amplitudes. The 
stationary perturbations (denoted SP on the printout) are defined only if the 
height is between 30 and 90 km. The monthly mean y^ of parameter y should 
be the Groves value G , evaluated from the SCIDAT data tape, modified by the 
given stationary perturbation value s y , in percent, by the relation 

y m ■ y 100) («.s) 

The data labeled "QBO" are the values of the QBO oscillation at the output 
time and position. The data labeled "MAG" gives the magnitude of the QBO 
oscillations at the output position and time. The QBO perturbation values 
should always be less than or equal to the magnitude values in absolute 
value. The data labeled "RANL" , "RANS" /RANT" are the large scale, small 
scale and total random perturbations evaluated at the output time and plac°. 
The data labeled "SIGL", "SIGS", and "SIGT" are the standard deviations of 
the large scale, small scale, and total random components at the output time 
and positions. According to the Gaussian distribution, on which the random 
perturbations are based, the perturbation values should be within the range 



+ a 68% of the time and outside the range + a 32% of the time. Similarly, 
the perturbation values should be within the range + 2 a 95% of the time, 
and outside the range + 2 o 5% of the time. The evaluation of the QBO and 

random perturbation output can be suppressed by the QBO and random options, 
if desired. 

Non-Print Output. The non-print output is available as an option, 
controlled by the input value of the output option parameter. If non-print 
output is desired, it comes out in the form of records with format F5.1, 
F6.2, F7.2, 2F5.1, 3F5.0, 5F5.1, 2E10.3, 15, 13 containing the following 
information: (1) the height in km, (2) the latitude in degrees, (3) the 

west longitude in degrees 0-360, (4-5) the percentage deviation of the mean 
monthly values of pressure and density from the 1962 U.S. Standard Atmos- 
phere, (6) the monthly mean temperature, (7-8) the eastward and northward 
components of the monthly mean (geostrophic) wind, (9-13) the magnitudes 
of the total random perturbations in pressure, density, temperature (per 
cent, and eastward and northward wind (m/s), (14-15) the monthly mean pres- 
sure (N/m ) and density (kg/m ), (16) the time, in seconds, and (17) the 

month (with 13 indicating annual mean). 

4* 5 Program Diagnostics . There are several possible reasons which 
can cause the printing of diagnostic messages and termination of the run dur- 
ing the SETUP phase. If, during the setup procedure, the NMC grid point 
number data table does not contain the required 1977 values, a message 
Diagnostic 1: "N REC0RDS WRITTEN BY SETNMC IN SCRATCH FILE M" is printed, 

and EXECUTION IS TERMINATED. This situation should only arise if the NMC 
grid point table is being read from cards, rather than the SCIDAT data tape. 
If during the reading of the SCIDAT data tape, any record is read which does 
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not have the expected code character or characters (N, P, D, T, S, R, RW, P, 

PW, CS, CL, qp, QD, QT, OU, QV, or SP; see Appendix B), then the message results 

Diagnostic 2 : "ERROR IN SETUP INPUT" followed by a listing of the latest 

data values read in. This message is also produced if the random option and 
the quasi-biennial option do not have a value of either 1 or 2. Any condi- 
tion which results in this error message terminates the execution. 

There are also general conditions which could result in diagnostic 
messages in the 4-D section: If during the reading of the 4-D data tape on 

the first access of the region below 30 km, a parity error is encountered, 
a message 

Diagnostic 3 : "INPUT UNIT N0. M IN ERR0R (-3) F0R REC0RD N0 N" is printed - 

execution continues. Such an error will only be of consequence if the parti- 
cular record read is required for interpolation. If an end of file is read, 
a message is written 

Diagnostic 4: "***** UNIT NJ5. JT IN ERR0R IRC REC0RDS READ 

I READ ( I RN , 3) + XXXX MP = XX M0NTH = XX IP = XXXX IPT(I, J) = XXXX IRN = XX 
M STATUS L" 

Where 

JT = Unit on which 4-D data tape is mounted 

IRC = Total number of records read thus far from 4-D tape 

IREAD(IRN, 3) = Sequential point number selected by SELEC4 

MP = Month word in last record read 

M0NTH = Run month 

IP = Point number word in last record read 

I PT ( I , J) = Point number required for profile J to be interpolated 
to Ith requested profile 

IRN = Sequential point number required 


60 



M = Unit status (READ) 

L = NTRAN status (-2 for end of file, -3 for parity, etc.) 

and EXECUTION IS TERMINATED 

If IRC > IREAD(IRN, 3), the diagnostic message 4 is written - L should 
be 106, and IRC and IREAD values should indicate this condition. EXECUTION 
IS TERMINATED. 

If MP f M0NTH, or IP f IP(I, J) the diagnostic message 4 is printed, 
again with L = 106, and MP/MONTH or IP/IP(I, J) indicating error. EXECUTION 
IS TERMINATED. 

The writing of scratch file SCRCH1 with data for subsequent unpacking 
and interpolation is also checked. If there is a write error, the diagnostic 
4 is printed, with JT the scratch file unit number, M as WRITE and L as -3 
or -4. EXECUTION IS TERMINATED. 

These diagnostics can arise if a bad or wrong 4-D data tape is being 
accessed, or if there is a malfunction of the tape drive. In some cases a 
tape will, for example, indicate parity errors when being read from one tape 
drive, but not another. 

If, during the course of evaluation of position in the 4-D height 
range, it is found that the position is outside the previously established 
4-D grid, then a new grid is generated by calling GEN4D. If this occurs 
again, the message results 

Diagnostic 5 : "UNABLE TO GENERATE 4-D GRID" and EXECUTI0N IS TERMINATED. 

The wind diagnostic symbol (asterisk), has also been added to the pro- 
gram. Presence of the asterisk between the E-W and N-S wind components on 
the print output indicates a diagnostic condition yielding questionnable 
wind values. The conditions which can produce this is a 4-D data consis- 
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tency check violation (i.e., unrealistic scale heights or unrealistic hori- 
zontal pressure gradients) within the 4x4 grid of 4-D data profiles. 
Diagnostic 6 : "PREMATURE END-OF-FILE FOUND ON UNIT M" 

"CALLED FROM SUBROUTINE XXXXXX" 

And end-of-file mark was encountered before it was expected by one of 
the following subroutines while it was loading the associated data. 


XXXXXX 

DATA 

GETNMC 

NMC GRID DATA 

RTRAN 

STATIONARY OR RANDOM PERTURBATION DATA 

RTRAN1 

GROVES DATA 

RTRAN2 

QBO DATA 


UNIT m refers to the input unit number. This error should never occur 
while using the SCIDAT data type as the data source. 
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5. PROGRAMMERS MANUAL 


CHECK: 


CORLAT: 


5.1 : Description of Subroutines 

The following is a brief description of each of the PROFILE program 
subroutines, in alphabetical order: 

ADJUST: Adjusts the 4-D profiles of pressure, density, and temperature 

variance (read from the 4-D tapes) to satisfy the Buell constraints 
imposed by the perfect gas law and hydrostatic equation 

A consistency check routine for the 4-D 16 profile grid data pro- 
duced by GEN4D. CHECK is called for each height to be evaluated, 
and tests for reasonable values of scale height immediately above 
and below that height. It also tests for reasonable horizontal 
pressure gradients. Failure of either test produces the diag- 
nostic asterisk between the output values of wind components. 

Evaluates the horizontal and vertical scales for large and small 
scale density, temperature, and wind components, computes the auto- 
correlations and cross correlations for the two scale perturbation 
model, and evaluates new perturbation values having appropriate 
correlations with the perturbations at the previous position. 

A matrix diagonalizing procedure used by the ADJUST subroutine. 

Fairs between the Groves and Jacchia values in the 90 to 115 km 
height range. 

Generates the polar (| latitude! > 75°) or non-pol ar (16 5° x 5° 
points) grid of pressure, density, temperature and variance pro- 
files. See Figure 5.1 for a flow chart of this subroutine. 

Reads the NMC grid point values from the SCIDAT data tape or from 
cards and loads them onto a scratch file. This subroutine is 
essentially unchanged from the subroutine of the same name in the 
original 4-D program. 

The main segment of the Global Reference Atmospheric Model program. 
The main segment serves as a driver for the SETUP and SCIMOD sub- 
routines. 


DIAGEQ: 

FAIR: 

GEN4D: 


GETNMC: 


GRAM: 
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Figure 5.1: Simplified flow chart of the GEN4D subroutine. 
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GRID4D: 


GR0UP 


GTERP: 


INTERW: 

INTERZ: 


INTER2 : 
INTER4: 

INTLL: 


After array of 4-D grid lat-lons has been evaluated, this subrou- 
tine looks up the data from the 4-D data tapes and interpolates 
to determine profiles of pressure density, temperature, and var- 
iance at the 4-D grid locations. Profiles to be interpolated to 
4-D grid locations are loaded onto a scratch file from the tapes 
before the interpolation is done. 

A subroutine, called by CHECK, which groups the 16 4-D pressure data 
at the given height into one or more groups which have consistent 
and reasonable horizontal pressure gradients within each group. 

If the subsequent geostrophic wind calculations in WIND use hori- 
zontal pressure gradients evaluated from differences across incon- 
sistent groups of 4-D data, the diagnostic asterisk is printed be- 
tween the output values of wind components. 

Uses linear latitude interpolation and linear temperature and 
linear logarithm of density interpolation on height to evaluate 
Groves data to a given latitude and height. See Section 5 of 
Justus et al (1974a). 

Two variable linear interpolation between known value U1 and VI at 
Z1 and U2 and V2 at Z2 to determine U and V at Z, where Z is be- 
tween Z1 and Z2. 

Three variable interpolation, linear on temperature, and gas con- 
stant (R = p/pT), and linear on the logarithm of pressure, with 
pressure computed from perfect gas law and interpolated tempera- 
ture and density, and gas constant. 

Three variable interpolation, linear on all three variables. 

Interpolates between the pressure, density, and temperature pro- 
files at the 4-D grid locations. This subroutine calls subroutine 
INTLL to do the latitude interpolation. 

One variable interpolation between values in an array of latitude 
and longitude location's by equation (5.6) of Justus et al (1974a). 
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INTRP4: The subroutine for the latitude-longitude interpolation of values 

from the 4-D data tapes into the 4-D grid array. This is a modi- 
fication of the INTERP subroutine of the original 4-D program. 

INTRUV: Evaluates the standard deviations of the random wind components at 

given height and latitude by calling INTERW subroutine. 

JAC: Calculates the molecular weight, density, and temperature for the 

Jacchi a model . 

JACCH: Main subroutine of the Jacchia section, serves as a driver for JAC 

and other Jacchia section subroutines. JACCHIA also evaluates the 
seasonal and latitudinal variations in the lower thermosphere. 

NORMAL: Computes two independent random numbers selected from a Gaussian 

distribution with mean zero and unit standard deviation. 

PDTUV: Interpolates the stationary perturbations on latitude and longitude 

at a given height. This subroutine is similar to INTLL. 

PERTRB: Evaluates the pressure, density, temperature and wind component 

random perturbations by the correlated random perturbation model 
discussed in Section 8 of the technical description section of the 
report. 

PHASE: A linear height-latitude interpolation routine for the quasi -bien- 

nial phase. The interpolation properly accounts for the phase 
discontinuity between 0 and 870 days (the quasi -biennial period). 

QBOGEN: Computes the QBO perturbation values and their amplitudes and phases. 

The amplitudes and phases of the QBO pressure, density, temperature, 
and wind perturbations are interpolated from the amplitude and phase 
data from the SCIDAT data tape, by calling the INTERZ and INTERW 
subroutines . 

RAND: Produces a random number selected from a uniform distribution be- 

tween 0 and 1. This is required as input to the subroutine NORMAL. 

RIG: Computes the acceleration of gravity and the radius from the cen- 

ter of the Earth for a position at a given latitude and height. 

RTERP: Computes the standard deviations of the random pressure, density, 

and temperature perturbations by calling subroutine INTERZ. 
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RTRAN: 


SCIMOD: 


SELEC4: 

SETUP: 

S0RT4: 

SPHERE: 
STDATM: 
TINF : 
TME: 
WIND: 


This subroutine contains several NTRAN read sections with multiple 
entry points coming from subroutine SETUP. The NTRAN read state- 
ments are for reading the SCIDAT data tape. 

The heart of the GRAM program. This subroutine branches on 
height to evaluate the atmospheric parameters by the Jacchia, the 
modified Groves, or the 4-D methods. The QBO and random pertur- 
bations are also evaluated and the output is printed (and option- 
ally also punched) by the SCIMOD subroutine. See Figure 5.2 for a 
flow chart of the SCIMOD subroutine and Figure 4.1, for a flow 
chart showing how SCIMOD fits into the overall GRAM prog- 
gram. 

Selects the 4-D data needed for interpolation. This subroutine 

is a modification of the INPUT subroutine of the original 4-D pro- 
gram. 

This subroutine reads in the NMC grid points with the GEi'NMC sub- 
routine and reads and loads the data from the required month on 
the SCIDAT data tapes into arrays. See Figure 5.3 for a flow chart 
of the SETUP subroutine, and Figure 4.1 for a flow chart showing 
how SETUP fits into the overall GRAM program. 

Sorts the 4-D locations for sequential tape reading from the 4-D 
data tapes. This subroutine is a modification of the SORT subrou- 
tine from the original 4-D program. 

Called by WIND, this subroutine evaluates the wind components by the 
spherical harmonic model. 

Evaluates the 1962 U.S. Standard Atmosphere values of pressure, 
density, and temperature, at any given height up to 700 km. 

This subroutine computes the exospheric temperature for the Jacchia 
model . 

This subroutine calculates the variables necessary for input into 
the subroutine TINF in the Jacchia model. 

This subroutine evaluates the geostrophic winds from input values 
of horizontal pressure gradient if the height is less than 25 km 
or more than 90 km. If the latitude is below the minimum geo- 
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strophic latitude, it evaluates geostrophic wind at minimum geostrophic 
north latitude and at minimum geostrophic south latitude and then 
interpolates in between. If the height is between. 25 and 90 km, 
the spherical harmonic wind model is used. Between 20 and 25 km 
and between 90 and 95 km, a smooth fairing between geostrophic and 
spherical harmonic wind is used. 

The UNIVAC tape reading library routine NTRAN is not available on all 
computers. However, a similar function (reading 36 bit binary integer arrays 
in tape records) can be performed easily by alternate program techniques. 

For example, on Georgia Tech's CDC Cyber 74 system, this function is done by 
BUFFER IN statements. These routines are used to read the SCIDAT and 4-D 
data tapes. Also the FLD function, a UNIVAC library routine used to divide 
the 36 bit 4-D tape words onto 2 18 bit integers, must also be programmed 
by alternate methods on non-UNIVAC machines. On Georgia Tech's CDC machine, 
this is done by specially written subroutines (WRDCHG, RFLD, and FLD) which 
utilize the SHIFT and MASK bit manipulating CDC library routines. 

If the GRAM program is mapped without segmenting the program, it requires 
approximately 80 K decimal words core storage on Georgia Tech's CYBER. In order 
to take up less core storage (e.g., be accommodated into smaller core partitions), 
the program can be mapped in segmented form. An efficient segment of the 
program can be accomplished by subdividing the program into a primary seg- 
ment, a setup segment, a Jacchia segment, and a 4-D segment. The primary 
segment should contain CORLAT, GRAM, GTERP, INTERW, INTERZ, INTER2, INTRUV, 
NORMAL, PDTUV , PERTRB, PHASE, QBOGEN, RAND, RIG, RTERP, SCIMOD, SPHERE, STDATM, 
and WIND. The setup segment should contain: GETNMC, RTRAN, and SETUP. The 
Jacchia segment should contain: FAIR, JAC, JACCH, TINF, and TME. The 4-D 

segment should contain: ADJUST, CHECK, DIAGEQ, GEN4D, GRID4D, GROUP, INTER4, 
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Fiaure 5.2: An abbreviated flow chart of the SCIMOD subrouti 












Figure 5.3: Abbreviated flow chart of the SETUP subroutine. 
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INTLL, INTRP4, SELEC4, and S0RT4. The following MAP statement for file GRAM 
to create absolute element ABS will accomplish the mapping of the program 


these segments setup as 
@MAP, IS . GRAM. ABS 

described 



IN GRAM. CORLAT, . 

GRAM, . 

. GTERP, . INTERW , . 

INTERZ 

IN GRAM. INTER2, . 

, INTRUV, 

. NORMAL, . PDTUV, 

. PERTRB, 

IN GRAM. QBOGEN , . 

, RAND, . 

. RIG, . RTERP 


IN GRAM. SCIMOD, . 
NOT TPF$ 

SEG SETUP* 

SPHERE, 

. STDATM, . WIND 


IN GRAM. GETNMC, 
NOT TPF$ 

SEG JACCH*, SETUP 

. RTRAN , 

. SETUP 


IN GRAM. FAIR, . 
NOT TPF$ 

SEG SEG4D*, SETUP 

JAC, . 

JACCH, . TINF, . TME 


IN GRAM. ADJUST, 

. CHECK, 

. DIAGEQ 


IN GRAM. GEN4D, . 

GRID4D, 

. INTER4, . INTLL, . 

INTRP4 

IN GRAM. SELEC4, 
NOT TP F$ 

END 

. S0RT4, 

. GROUP 



This segmented map saves approximately 4 K (decimal) in core storage, but 
does not significantly affect run time, since the segments being overlayed 


(the setup, Jacchia, and 4-D segments) only have to be loaded in once during 
any given trajectory or profile evaluation. If further reduction in size is 
desired the 4-D segment can be subdivided into two parts, one containing 
only CHECK, GROUP, INTER4, and INTLL and another segment containing ADJUST, 
DIAGEQ, GEN4D, GRID4D, INTRP4, SELEC4 and S0RT4. This saves another 1 K in 
storage, approximately. 

Some characteristics of some of the subroutines in each of these seg- 
ments are described more fully in the following sections. 

5.2: The Primary Section 


This section consists of the main program segment GRAM, the SCIMOD 
subroutine, the subroutines for evaluating Groves values, the stationary per- 
turbations, the QBO and random perturbations, and general interpolation sub- 


PHAS 
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routines. With the exception of GRAM and SCIMOD the parts of this section 
were adequately described in the previous section. 

Many of the subroutines transfer their input and output via COMMON 
statements. This procedure saves much in core storage space. The discussion 
in this and subsequent sections describes the input and output of some of 
the subroutines, both by argument lists and via COMMON statements. 

Main Segment GRAM . This program serves as a driver for the SETUP and 
SCIMOD subroutines (see Figure 4.1). It reads one card, the first input 
card, in free field format. This card contains: 


1 . 

The initial height 

HI 


2. 

The initial latitude (degrees) 

PHI1 


3. 

The initial west longitude (degrees) 

THETl 


4. 

The F10.7 solar flux 

FI 0 


5. 

The 81 day mean F10.7 solar flux 

FI OB 


6. 

The ap geomagnetic index 

AP 


7-9. 

The date month/date/2 digit year 

MN/IDA/IYR 

10-12. 

The Greenwich time hours: minutes: 
seconds 

IMRO; 

MINO; ISECO 

13-15. 

The latitude, longitude, and height 
increments 

DPHI , 

DTHET, DH 

16. 

The maximum number of profile positions 

NMAX 


17. 

The time increment between profile 
positions 

INCT 


18. 

The trajectory option 

I OPT 


19 

The output option 

I0PP 


20. 

The minimum geostrophic latitude 

GLAT 



The trajectory input records (if used) are also read by GRAM, after control 
has returned from SETUP, which reads the second and third initial data in- 
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put cards. See Section 4.4 and Appendix C for further description of the 
card input. 

The COMMON "IOTEMP" transfers data from the card input in GRAM to the 
other subroutines called by GRAM (SETUP, SCIMOD, and RIG). 

Subroutine SCIMOD . This program is the primary subroutine of the GRAM 
program. It serves as a driver for all of the various sections of the atmos- 
pheric evaluation. See Figure 5.2 for a flow chart of this subroutine. 

The input to SCIMOD, transferred by COMMON statements IOTEMP and PDTCOM, 


is: 


1 . 

2 

Acceleration of gravity (m/sec ) 

G 


2. 

Earth radius to height H (km) 

RI 


3. 

Height (km) 

H 


4. 

Latitude (radians) 

PHIR 


5. 

Longitude (radians) 

THETR 


6. 

FI 0 . 7 solar flux 

FI 0 


7. 

Mean F10.7 solar flux 

FI OB 


8. 

Geomagnetic index ap 

AP 


9-11. 

Date 

MN/IDA/IYR 


12-14. 

Time 

IHR: MIN: ISEC 


15. 

Previous height (km) 

HI 


16. 

Previous latitude (radians) 

PH HR 


17. 

Previous longitude (radians) 

THET1 R 


18-20. 

Previous random pressure, density, and 
temperature perturbations (%), large 
scale (L) and small scale (S) 

RP1L , RD1L, RT1L, RP1S, RD1S, 

RT1S 

21-23. 

Previous random pressure, density, and 
temperature standard deviations (5), 
large scale (L) and small scale (S) 

SP1L, SOIL, ST1L, SP1S, SD1S, 

ST1S 
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24-25. Previous random winds (m/s), large 

scale (L) and small scale (S) RU1L, RV1L, RU1S, RV1S 

26-27. Previous standard deviation of random 
winds (m/s), large scale (L) and small 

scale (S) SU1L , SV1L, SU1S, SV1S 

The COMMON "PDTCOM" contains data transferred into SCIMOD from SETUP. 

The COMMON "IOTEMP" transfers data in from GRAM. The COMMON "C4" transfers 
data out to the 4-D section of the program. The COMMON "COMPER" transfers 
data out to the random perturbation subroutines. 

The SCIMOD subroutine prints and (optionally) punches on a non-print out- 
put file, the output described in Section 4 and Appendix C. It also trans- 
fers output to other subroutines via the above-mentioned COMMON lists. The 
SCIMOD subroutine updates the profile or trajectory positions by setting the 
current position equal to the previous position before exit. The previous 
position information then stays in the COMMON list unit the next call to 
SCIMOD. The previous random perturbations are handled in similar fashion. 

5.3 The Setup Section 

The function of the setup section of the program is to load the init- 
ial data and the data from the SCIDAT tape. See Figure 4.1 for a flow chart 
illustrating how the SETUP subroutine fits into the overall program and Fig- 
ure 5.2 for a flow chart of the SETUP subroutine. 

The SETUP subroutine reads the second and third cards of input. The 
second cards contains: 


1 . 

Groves input unit 

IUG 

2. 

Random input unit 

IUR 

3. 

QBO input unit 

IUQ 

4. 

4-D input unit 

IU4 

5. 

Random option 

IOPR 


74 



6. 

QBO option 

IOPQ 

7. 

First random number 

NR1 

8. 

NMC read option 

NMCOP 

9. 

4-D scratch unit 

I0TEM1 

10. 

NMC grid point scratch unit 

I0TEM2 

The third 

card (optional, read only if IOPR = 1) contains: 

1-6. 

Initial random perturbations in pressure, 
density, and temperature (%), large scale 
(L) and small scale (S) 

RP1L, RD1L, RT1L 
RP1S, RD1S, RT1S 

7-10. 

Initial random wind perturbation (m/s) 
large scale (L) and small scale (S) 

RU1L, RV1L, RU1S, RV1S 

The 

COMMON list "PDTCOM" transfers the arrays. 

loaded with the appro- 

riate data 

from the SCIDAT data tape, to the other subroutines. This COMMON 

list contains the following arrays: 


1-3. 

Groves pressure, density, and temperature 

PG, DG, TG 

4-6. 

Stationary perturbations in pressure, den- 
sity, and temperature 

PSP, DSP, TSP 

7-11. 

Amplitudes of QBO pressure, density, and 
temperature, and winds 

PAQ, DAQ, TAQ, UAQ, VAQ 

12-16. 

Phases of QBO pressure, density, and tem- 
perature, and winds 

PDQ, DDQ, TDQ, UDQ, VDQ 

17-21. 

Standard deviations for the random pres- 
sure, density, temperature and winds 

PR, DR, TR, UR, VR 

The 

COMMON list "COTRAN" is used to transfer data to setup from the 

NTRAN read 

subroutine RTRAN, which has multiple entry 

points for various dif- 

ferent types of data from the SCIDAT data tape. The COMMON "CHIC" is used to 
transfer the spherical harmonics coefficients to the SPHERE subroutine. 


5-4 The Jacchia Section 


The subroutine JACCH calculates the pressure, density, and temperature 
at a point in space for heights above 90 km for a particular time. 
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1 . 

Height in km 

H 

2. 

Latitude in radians 

PHIR 

3. 

West longitude in degrees (0 to 360 degrees) 

THET 

4. 

22 2 

Solar radio noise flux F10.7 (10 watts/m ) 

FI 0 

5. 

81 - day average solar flux FI 0.7 

FI 0B 

6. 

Geomagnetic index ap 

AP 

7. 

Month 

MN 

8. 

Day of month 

IDA 

9. 

Year 

IYR 

10. 

Hour of day in universal time 

IHR 

11 . 

Minute of hour in universal time 

MIN 

12. 

Mean Julian day 

XMJD 


The outputs 

are: 


1 . 

2 

Pressure in units of nt/m 

PH 

2. 

3 

Density in units of kg/m 

DH 

3. 

Temperature in Kelvin degrees 

TH 


The theory and methods used in JACCH for calculating the pressure, 
density, and temperature are given in Jacchia , (1970). A brief explanation 
will be given below. 

The subroutine JACCH consists of four sections: the main routine and 

three imbedded subroutines. All sections have numerous comments to explain 
each part of the program. 

Main Routine (JACCH) . The main routine acts as the calling routine, 
and also, calculates the seasonal - latitudinal variations in the lower 
thermosphere. 

The seasonal - latitudinal density variations are given by equation 


76 



(2.1) of Justus et al (1974 a). 

The equations for the molecular weight and the relative temperature 
were given as equations (2.2) and (2.3) of Justus et al (1974 a). 

After the density, temperature, and molecular weight are calculated, the 
pressure is calculated from the ideal gas law: 

p = pffT 
K M 

where p is the density, R is the universal gas constant, T is the temperature, 
and M is the molecular weight. 

An option is included in the main routine whereby the yearly mean 
values of the density, pressure, and temperature may be calculated directly. 

If the value of the month input variable is thirteen, (MN =13), the exosphere 
temperature is immediately set equal to 1000° K (which is the recommended 
design value for annual mean conditions) and the yearly mean density, pres- 
sure, and temperature values are calculated. Note that the 1962 U.S. Stan- 
dard Atmosphere has an exospheric temperature of approximately 1500° K and 
is thus considerably different from the 1000° K results of the annual mean 
in the PROFILE program. 

Subroutine TME . This subroutine calculates variables necessary for 
input into the subroutine TINF. The input variables are: 

1. month (month = 13 denotes annual mean and bypasses 


this subroutine) MN 

2. day of month ID/\ 

3. year IY R 

4. hour of day in universal time IHR 

5. minute of day in universal time MIN 

6. mean Julian day XMJD 
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7. latitude in radians 


XLAT 


8. longitude in degrees (input: 0 to 360 degrees turning 
westward; output: -180 to + 180 degrees) 

The output variables are: 

1. solar declination angle in radians 

2. solar hour angle in radians 

3. day number from January 1 

4. day number divided by tropical year (365.2422 days) 

Subroutine TINF . This subroutine calculates the exospheric 

ture. The input variables are: 

-22 2 

1. solar radio noise flux (10 watts/m ) 

2. 81 - day average F10 

3. geomagnetic latitude in radians 

4. solar declination angle 

5. solar hour angle 

6. day number divided by tropical year 

7. diurnal factor equal to 0.31 
The output is the exospheric temperature, TE. Factors included in 

the calculation of the exospheric temperature are solar activity variations, 
diurnal variations, variations with the geomagnetic activity, and semi-annual 
variations. 

Subroutine JAC . This subroutine calculates the molecular weight, 
density, and temperature without the seasonal - latitudinal variations. The 
input variables are: 

1. height in km z 

2. exospheric temperature T 


XLONG 

SDA 

SHA 

DD 

DY 

tempera - 

F10 

FI OB 

XLAT 

SDA 

SHA 

DY 

R 
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The output variables are: 

1. temperature 

2. molecular weight 

3. density 
5.5 The 4-D Section 

GRID4D and subroutines S0RT4, INTRP4 and SELEC4 are basically the MAIN 
PROGRAM, S0RT, INTERP and INPUT as documented in the 4-D users reference man- 
ual and subsequent updates. 

Some changes have been made. 

In GRID4D, NTRAN M0VE statements are used to select the appropriate 
file for a given month on the 4-D data tape mounted on UNIT IT in the UNIVAC 
version. In Georgia Tech's CDC version, and on other machines, separate 
reads for each record must be used until an end of file is reached, and 
reading continues until the proper file is found. If a parity error is 
encountered in reading IT, a message 

"INPUT UNIT NO. IT IN ERR0R F0R REC0RD N0 IRC" 
is printed - execution continues. Such an error will only be of consequence 
if the particular record read in error is required for interpolation. 

Grid point profiles for subsequent interpolation are tagged and filed 
on a dynamically assigned scratch UNIT SCRCH1 (I0TEM1 in calling program), 
instead of occupying core as in the 4-D model. 

Any error in the handling of the 4-D data tape or UNIT SCRCH ( I0TEM1 
in calling program) by TRID4D which results in a transfer to 

STATEMENT NO. 30 

is fatal, and results in the printing of an error message and termination of 
execution (see Section 4.5). 


TZ 

EM 

DENS 
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Slight changes have been made to the logic of S0RT4 in the interests 
of efficiency. 

SELEC4 is concerned only with the selection of the record numbers of 
the appropriate interpolation profiles. 

GETNMC has been added to file the NMC grid point data, read either 
from cards of the SCI DAT data tape on UNIT IUG, on a dynamically assigned 
scratch file SCRCH2 (I0TEM2 in calling program), instead of occupying 1977 
words of core as in the 4-D model. If other than 1977 records are filed, an 
error message 

"N REC0RDS WRITTEN BY GETNMC ON SCRATCH FILE M" 

is printed and execution terminated. 

INTRP4 uses a modified latitude - longitude interpolation scheme in the 
mixed NMC - equatorial, equatorial and southern hemisphere regions. 

The dimensions of some variables have been altered in keeping with 
the maximum number of profiles to be used in interpolation (16 instead of 25 
as in the 4-D model), and to provide the index word for each record of 
SCRCH1 (IN (107) instead of (106)). 

All references to, and subroutines associated with, the determination 
of the coefficients of the best fit polynomials to the selected profiles, as 
performed in the original 4-D model, have been deleted. All vertical inter- 
polations required are performed by SCIM0D. 
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APPENDIX A 


THE SPHERICAL HARMONIC WIND MODEL 

The spherical harmonic wind model is based on the second order spherical 
harmonic expansion relation (equation 2.12) 

u(m, z, 0 , 4> ) = a i + a ^ cos4> + a^ cose sin<() 

+ a 4 sine sin<j> + a 5 ( 3cos 2 <f>-l )/2 (A-l) 

+ ag cose(3 sin<j> cose) + a^ sine(3 s i ncf> cos<t>) 

+ ag (2 cos^e-l)(3 s i n^ 4 > ) + a^(2 sine cose)(3 s i n ^ ) 

v/here u is the eastward wind component (or a similar equation for v, the 
northward component), m is the month, z is the height, e is the longitude, 
and <|> is the co-latitude. The coefficients (a's) must be estimated from 
observed data, as a function of month and height. Five kilometer height 
intervals were selected at which to evaluate the coefficients. 

Estimation of the Model Coefficients 

The spherical harmonic model may be expressed as a linear function by 
the transformation 

X 1 = 1 
x^ = cos<f> 

Xg = cose sin 4 > 

x^ = sine sin<j> 

x 5 = 3 ( cos 2 4>- 1 )/2 
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(A-2) 


X/- = cose (3 s i n 4 > cos4>) 
b 

Xj = sine (3 sin<f> cos<f>) 

x 8 = (2 cos 2 e-l ) (3 sin 2 <j>) 

2 

x n = (2 sine cose) (3 sin t) 
y 

Using this transformation, the model becomes 

9 

u = E a . x . = A • X 
i=l 1 1 


(A-3) 


where A and X are 9-component vectors with components a^ and x • , respectively. 
If similar coefficient b i are defined for v, the northward component, its 
representation becomes 


v = B • X 

Since the wind components vary with month and height, the A and B 
vectors will depend on month and height. Over altitudes 25 to 65 km the all 
a component of the A and B^ coefficient vectors are evaluated every 5 km, for 
each month. Above 65 km, where fewer wind observations were available, a 
5 km height increment was still used, but only the lst-order coefficients 
(1-4) were evaluated; the 2nd-order coefficients (5-9) were set identially 
to zero (see the printout of the spherical harmonic in the SCIDAT tape 
listing of Appendix B) . 

The least-squared error approach ( Draper and Smith , 1966) was used to 
estimate the coefficient vectors A and B. 

The Data 

Four sources of wind data were available for this analysis. The most 
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extensive source was the SUMS tape from the World Data Center ( NO A A , 1976). 
This tape contained monthly wind data averaged over the period 1969 to 1976. 
Up to 20 stations around the world reported winds in the altitude range 25 
to 90 km. These stations were located primarily in the Western hemisphere. 

Data from three Eastern hemisphere stations--Thumba , India; Volograd, 
USSR; and Heiss Island--were available ( NASA , 1978). This also was monthly 
averaged data ranging from 25 to 60 km. 

The third source of data was grenade soundings from four locations: 

Point Barrow, Alaska; Wallops Island, Virginia; Fort Churchill, Canada; 
and Natal/Ascension Island ( Theon, et al . , 1972). The Natal/Ascension data 
were annual means; the other stations were averaged over three seasons; 
summer, winter, and Equinox. A sinusoidally weighted interpolation scheme 
was used to estimate monthly wind averages. In this scheme, the summer and 
winter observations were assumed to be the extremes, and the equinox was the 
nominal wind value. 

The fourth data source was from Woomera, Australia ( Pearson and Johnson , 
1973). Monthly average wind components from 30 to 80 km were available from 
this source. 

t 

The four data sources were combined and used as input to a multiple 
regression program for estimating the spherical harmonics coefficients, as 
previously described. Monthly wind averages based on less than three obser- 
vations were filtered from the data. 

Very little southern hemisphere wind data were available, resulting in 
eratic wind prediction at southern latitudes. To alleviate this problem, 
data from the northern hemisphere was used as southern hemisphere data, 
displaced by 6 months, with both latitude and longitude reversed. 

The number of stations which had enough wind data for meaningful 



averages varied considerably from one month to the next and from one alti- 
tude to the next. There was a maximum of 23 stations and a minimum of 5 
stations at a given height. The geographic distribution of the stations was 
strongly biased towards the north-west quarter-sphere. These factors, along 
with the large variance in the wind data result in the spherical harmonics 
coefficients having large standard deviations. As a result of this, 
increased emphasis should be placed on perturbation analysis available in 
the GRAM program. As more and better wind data becomes available, the 
spherical harmonics model coefficients may be updated, and better results 
obtained. 

The spherical harmonic model is used at all latitudes to calculate 
winds between the heights of 25 and 95 km. Between 20 and 25 km and between 
90 and 95 km, a Fairing technique is used to smooth the winds between the 
spherical harmonic model values and the geostrophic winds. At low latitudes 
(below the "minimum geostrophic latitude" given in the input), the geostrophic 
relation is not used. Instead interpolation is done between plus and minus 
minimum geostrophic latitude (below 25 km and above 90 km only). 
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APPENDIX B 


LISTING OF THE REVISED TAPE 
"SCIDAT -MOD-3" FOR THE GRAM PROGRAM 

The tape contains the following data, identified by code characters 
at the beginning of each record. Month 13 refers to annual mean values. 

For code P, D, T, S, R and RW data, southern latitudes are given by northern 
hemisphere data displaced six months. Annual mean data and the QBO para- 
meters are the same for both southern and northern hemispheres. For a more 
complete discussion of the input data, see Section 4.2. 


Code Data 

N NMC Grid Data 


P Groves Pressure (nt/m 2 ) 

D Groves Density (kg/m^) 

T Groves Temperature (°K) 

S Stationary Perturbations in 

monthly means (per mill) 


R Random pressure, density and 

temperature perturbation 
magnitudes (per mill) 

RW Random magnitudes wind per- 

turbation (m/s) 

P Fractional variance in large 

scale thermodynamic variables 


PW Fractional variance in large 
scale winds 


Description 

Same as NMC Grid Required by NASA ver- 
sion 4-D program. Data consists of 
sequential point number followed by 
the two corresponding NMC grid indices. 
There are five points per record on 
the tape. 

Month, height, values at latitudes 0, 
10, 20, ... 90 exponent. Same format 
as in Groves report. 


Month, height, longitude, Ap at north 
latitude, 10, 30, 50, 70, 90, Ap same, 
aT same. 

Month, height, Ap at north latitude 
10, 30, 50, 70, 90, Ap same, aT same 


Month, height, au at north latitude 
10, 30, 50, 70, 90, av same 

13 (Annual), height, fractional var- 
iance in large scale per mill for pres- 
sure, density and temperature, eacn 
at latitude 10°, 30°, 50°, 70°, 90° 

13 (Annual), height, fractional var- 
iance in u at 10°, 30°, 50°, 70°, 90° 
latitude, same for v 
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Code 

Data 

CS 

Small scale density-velocity 
correlations 

CL 

Large scale density-velocity 
correlations 

QP 

QBO pressure parameters -amp- 
litude (per mill) and phase 
(days after Jan. 0, 1966 
when 1st maximum occurs) 

QD 

QBO density parameters (as 
in QP) 

QT 

QBO temperature parameters 

QU 

QBO eastward wind para- 
meters -amplitude (0.1 m/s) 
and phase (days after Jan. 
0, 1966) 

QV 

QBO northward wind para- 
meters - (as in QU) 

SP 

Spherical harmonic 
coeffici ent 


Description 

13 (Annual), height, <pu> s at 10°, 
30°, 50°, 70°, 90° latitude, same 
for <pv> 

13 (Annual), height, <p u> p at T0°« 
30°, 50°, 70°, 90° latitude, same 
for <pv>^ 


Height, amplitude and phase at 10° 
latitude, amplitude and phase at 30° 
... , amplitude and phase at 90° 


Height, month, and coefficient 
values a-|-ag, cm/s. 


The tape consists of six FORTRAN readable files with an end of file marker 
after each file. The first file contains the NMC grid data, the second con- 
tains the Groves and Stationary perturbation data, the third contains the 
random perturbation data, the fourth contains the fractional large scale 
variances and the density-velocity correlations, and the fifth contains the 
QB0 data. Each record of the NMC grid data file contains the code (N) and 
x-y coordinates for 5 points. The Format is (A2, 1517). The total number 
of NMC grid points is 1977. The NMC grid data file contains a total of 
396 records, with the last record containing points 1976 and 1977 and zeros 
for the remaining values. The format for the Groves data is (A2, 1317), 


B-2 



for the stationary perturbation it is (A2, 1817), for the code-R data it 

is (A2, 1717), for the code RW data it is (A2, 1217), for the large scale 

fractional variances in thermodynamic variables it is (A2, 1717), for the 
large scale fractional wind variances it is (A2, 1217) for the density- 
velocity correlations (small scale and large scale) it is (A2, 1217), and 

for the quasi-biennial data it is (A2, 1117), and for the spherical harmonic 

it is (A2, 1117). The Groves data contains 702 records, the stationary 
perturbation data contains 1248 records, the code R random data contains 260 
records, the code RW random winds data contain 325 records, the code P large 
scale fractional variances contain 25 records, the code PW larqe scale frac- 
tional wind variances contain 25 records, and code CS and CL density-velocity 
correlation data contain 25 records each, the QBO data contain 80 records, 
and the spherical harmonics data contain 336 records. 

Following is a listing of the data contained on the SCIDAT tape. 
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tti MtC GRM tAMm 


H 

1 

15 

1 

2 

16 

1 

3 

H 

6 

70 

1 

7 

21 

1 

8 

H 

n 

25 

1 

12 

26 

1 

13 

N 

16 

30 

1 

17 

31 

1 

18 

N 

21 

15 

9 

■>2 

16 

2 

23 

N 

26 

20 

o 

27 

21 

o 

28 

H 

31 

25 

9 

32 

26 

T 

33 

H 

v. 

30 

T 

37 

31 

2 

38 

N 

4) 

13 

3 

42 

14 

3 

43 

N 

46 

18 

3 

47 

19 

3 

48 

H 

51 

23 

3 

52 

24 

3 

53 

H 

56 

28 

3 

57 

29 

3 

58 

H 

61 

33 

3 

62 

34 

3 

63 

N 

66 

M 

4 

67 

15 

4 

68 

H 

21 


4 

72 

20 

4 

73 

N 

76 

24 

4 

T? 

25 

4 

78 

W 

81 

29 

4 

32 

30 

4 

83 

N 

B6 

34 

4 

8? 

35 

4 

98 

N 

91 

13 

5 

92 

14 

5 

93 

N 

96 

18 

5 

97 

19 

5 

98 

N 

101 

23 

c 

O 

102 

24 

5 

103 

N 

106 

28 

5 

107 

29 

5 

108 

ti 

111 

33 

5 

112 

34 

5 

113 

N 

116 

to 

6 

117 

11 

6 

118 

N 

121 

15 

6 

122 

16 

6 

123 

H 

126 

20 

6 

127 

21 

6 

129 

H 

121 

25 

6 

132 

26 

6 

133 

H 

136 

30 

6 

137 

31 

6 

138 

N 

Ml 

35 

6 

142 

36 

6 

M3 

N 

H6 

10 

7 

147 

11 

7 

MB 

N 

1 51 

15 

7 

152 

16 

7 

153 

N 

156 

20 

7 

157 

21 

7 

158 

N 

161 

25 

7 

18? 

26 

7 

163 

N 

166 

30 

7 

167 

31 

7 

168 

W 

in 

35 

t 

172 

36 

7 

173 

N 

176 

3 

8 

177 

9 

8 

178 

H 

161 

13 

8 

182 

14 

8 

183 

N 

186 

IS 

8 

187 

19 

8 

188 

N 

191 

23 

8 

192 

24 

8 

193 

N 

196 

23 

8 

197 

29 

8 

198 

N 

201 

33 

8 

202 

34 

8 

203 

N 

206 

38 

8 

207 

39 

8 

208 

N 

211 

9 

9 

212 

10 

9 

213 

M 

216 

14 

9 

217 

15 

9 

21B 

N 

221 

19 

9 

-MO 

20 

9 

223 

N 

226 

24 

9 

227 

25 

9 

228 

N 

231 

2? 

9 

232 

30 

9 

233 


236 

34 

9 

237 

35 

9 

238 

W 

241 

39 

9 

?42 

40 

9 

243 

N 

246 

9 

10 

247 

9 

10 

248 

N 

251 

13 

10 

252 

M 

10 

253 

N 

256 

13 

10 

257 

19 

10 

258 

# 

261 

23 

10 

262 

24 

10 

263 


17 

1 

4 

18 

1 

5 

19 

1 

22 

1 

9 

23 

1 

10 

24 

1 

27 

1 

M 

28 

1 

15 

29 

1 

32 

1 

19 

33 

1 

20 

14 

T 

17 

2 

24 

18 

2 

25 

19 

T 

22 

2 

2? 

23 

2 

30 

24 

n 

27 

o 

c 

34 

28 

2 

35 

29 

T 

32 

2 

39 

33 

2 

40 

34 

2 

15 

3 

44 

16 

3 

45 

17 

3 

20 

3 

49 

21 

3 

50 

22 

3 

25 

3 

54 

26 

3 

55 

27 

3 

30 

3 

59 

31 

3 

60 

32 

3 

35 

3 

64 

12 

4 

65 

13 

4 

16 

4 

69 

17 

4 

70 

18 

4 

21 

4 

74 

22 

4 

75 

23 

4 

26 

4 

79 

V 

4 

80 

28 

4 

31 

4 

84 

32 

4 

85 

33 

4 

36 

4 

89 

11 

5 

90 

12 

5 

15 

5 

94 

16 

5 

95 

17 

5 

20 

5 

99 

21 

5 

100 

22 

5 

25 

5 

104 

26 

5 

105 

27 

5 

30 

5 

109 

31 

5 

no 

32 

5 

35 

5 

134 

36 

5 

115 

37 

5 

12 

6 

119 

13 

6 

120 

14 

6 

17 

6 

124 

18 

6 

125 

19 

6 

22 

6 

129 

23 

6 

130 

24 

6 

27 

6 

134 

28 

6 

135 

29 

6 

32 

6 

139 

33 

6 

M0 

34 

6 

37 

6 

144 

38 

6 

M5 

9 

7 

12 

7 

149 

13 

7 

150 

14 

7 

17 

7 

154 

18 

7 

155 

19 

7 

22 

7 

159 

23 

7 

160 

24 

7 

27 

7 

164 

28 

7 

165 

29 

7 

32 

7 

169 

33 

7 

170 

34 

7 

37 

7 

174 

38 

7 

175 

39 

7 

10 

8 

179 

11 

8 

180 

12 

9 

15 

8 

184 

16 

8 

185 

17 

8 

20 

8 

139 

21 

8 

190 

22 

8 

25 

8 

194 

26 

8 

195 

27 

8 

30 

3 

199 

31 

8 

200 

32 

B 

35 

8 

204 

36 

3 

205 

37 

8 

40 

8 

209 

7 

9 

210 

8 

9 

11 

9 

214 

12 

9 

215 

13 

9 

16 

9 

219 

17 

9 

220 

18 

9 

21 

9 

224 

n 

9 

225 

23 

9 

26 

9 

229 

V 

9 

230 

28 

9 

31 

9 

234 

32 

9 

235 

33 

9 

36 

9 

239 

37 

9 

240 

38 

9 

41 

9 

244 

6 

10 

245 

7 

10 

10 

10 

249 

11 

10 

250 

12 

10 

15 

10 

254 

16 

10 

255 

17 

10 

20 

10 

259 

21 

10 

260 

22 

10 

25 

10 

264 

26 

10 

265 

27 

10 
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ft 

266 

28 

10 

267 

29 

10 

268 

H 

2 71 

33 

10 

272 

34 

10 

273 

ft 

276 

38 

10 

277 

39 

10 

278 

H 

281 

5 

11 

282 

6 

11 

283 

ft 

286 

10 

11 

287 

11 

11 

288 

ft 

291 

15 

11 

292 

16 

11 

293 

ft 

296 

20 

11 

297 

21 

11 

293 

ft 

301 

25 

11 

302 

26 

11 

303 

ft 

306 

30 

11 

307 

31 

11 

308 

ft 

311 

35 

11 

312 

36 

11 

313 

ft 

316 

40 

11 

317 

41 

11 

318 

ft 

321 

5 

12 

322 

6 

12 

323 

ft 

326 

10 

12 

327 

11 

12 

328 

ft 

331 

15 

12 

332 

16 

12 

333 

ft 

336 

20 

12 

337 

21 

12 

338 

it 

341 

25 

12 

342 

26 

12 

343 

ft 

346 

30 

12 

347 

31 

12 

348 

H 

351 

35 

12 

352 

36 

12 

353 

ft 

356 

40 

12 

357 

41 

12 

358 

ft 

361 

3 

13 

362 

4 

13 

363 

ft 

366 

9 

13 

367 

9 

13 

368 

it 

371 

13 

13 

372 

14 

13 

373 

ft 

376 

18 

13 

377 

19 

13 

378 

ft 

381 

23 

13 

382 

24 

13 

383 

ft 

386 

23 

13 

387 

29 

13 

388 

ft 

391 

33 

13 

392 

34 

13 

393 

ft 

396 

38 

13 

397 

39 

13 

398 

ft 

401 

43 

13 

402 

44 

33 

403 

H 

406 

4 

14 

407 

5 

14 

408 

ft 

411 

9 

14 

412 

10 

14 

413 

ft 

416 

14 

14 

417 

15 

14 

418 

ft 

421 

19 

14 

422 

20 

14 

423 

ft 

426 

24 

14 

427 

25 

14 

428 

H 

431 

29 

14 

432 

30 

14 

433 

ft 

436 

34 

14 

437 

35 

14 

438 

H 

441 

39 

14 

442 

40 

14 

443 

ft 

446 

44 

14 

447 

45 

14 

448 

H 

451 

3 

15 

452 

4 

15 

453 

ft 

456 

8 

15 

457 

9 

15 

458 

ft 

461 

13 

15 

462 

14 

35 

463 

ft 

466 

18 

15 

467 

19 

15 

468 

ft 

471 

23 

15 

472 

24 

15 

473 

ft 

476 

28 

15 

477 

29 

15 

478 

ft 

481 

33 

15 

482 

34 

15 

483 

ft 

486 

38 

15 

487 

39 

15 

488 

ft 

491 

43 

15 

492 

44 

15 

493 

ft 

496 

1 

16 

497 

2 

16 

498 

ft 

501 

6 

16 

502 

7 

16 

503 

H 

506 

11 

16 

507 

32 

16 

508 

it 

511 

16 

16 

512 

17 

16 

513 

ft 

516 

21 

16 

517 

22 

16 

518 

ft 

521 

26 

16 

522 

27 

16 

523 

ft 

526 

31 

16 

527 

32 

26 

528 

ft 

531 

36 

16 

532 

37 

16 

533 


30 

10 

269 

31 

10 

270 

32 

10 

35 

10 

274 

36 

10 

275 

37 

10 

40 

10 

279 

41 

10 

280 

42 

10 

7 

11 

284 

8 

11 

285 

9 

11 

12 

11 

289 

13 

11 

290 

14 

11 

17 

11 

294 

18 

11 

295 

19 

11 

22 

11 

299 

23 

11 

300 

24 

11 

27 

11 

304 

28 

11 

305 

29 

11 

32 

11 

309 

33 

11 

310 

34 

11 

37 

11 

314 

38 

11 

315 

39 

11 

42 

11 

319 

43 

11 

320 

4 

12 

7 

12 

324 

8 

12 

325 

9 

12 

12 

12 

329 

13 

12 

330 

14 

12 

17 

12 

334 

10 

12 

335 

19 

12 

22 

12 

339 

23 

12 

340 

24 

12 

27 

12 

344 

28 

12 

345 

29 

12 

32 

12 

349 

33 

12 

350 

34 

12 

37 

12 

354 

38 

12 

355 

39 

12 

42 

12 

359 

43 

12 

360 

44 

12 

5 

13 

364 

6 

13 

365 

7 

13 

30 

33 

369 

11 

13 

370 

12 

13 

15 

13 

374 

16 

13 

375 

17 

13 

20 

13 

379 

21 

13 

380 

22 

13 

25 

13 

384 

26 

13 

385 

27 

13 

30 

13 

389 

31 

13 

390 

32 

13 

35 

13 

394 

36 

13 

395 

37 

13 

40 

13 

39 ? 

41 

13 

400 

42 

13 

45 

13 

404 

2 

14 

405 

3 

14 

6 

14 

409 

7 

14 

410 

8 

14 

11 

14 

414 

12 

14 

415 

13 

14 

16 

14 

419 

17 

14 

420 

18 

14 

21 

14 

424 

22 

14 

425 

23 

14 

26 

14 

429 

27 

14 

430 

28 

14 

31 

14 

434 

32 

14 

435 

33 

14 

36 

14 

43 ? 

37 

14 

440 

38 

14 

41 

14 

444 

42 

14 

445 

43 

14 

46 

14 

449 

1 

15 

450 

2 

15 

5 

15 

454 

6 

15 

455 

7 

15 

10 

15 

459 

11 

15 

460 

12 

15 

15 

15 

464 

16 

15 

465 

17 

15 

20 

15 

469 

21 

15 

470 

22 

15 

25 

15 

474 

26 

15 

475 

27 

15 

30 

15 

479 

31 

15 

480 

32 

15 

35 

15 

484 

36 

15 

405 

37 

15 

40 

35 

489 

41 

15 

490 

42 

15 

45 

15 

494 

46 

15 

495 

47 

15 

3 

16 

49 ? 

4 

16 

500 

5 

16 

8 

16 

504 

? 

16 

505 

10 

14 

13 

16 

509 

14 

16 

510 

15 

16 

18 

16 

514 

19 

16 

515 

20 

16 

23 

16 

519 

24 

16 

520 

25 

16 

28 

16 

524 

29 

16 

525 

30 

16 

33 

16 

529 

34 

16 

530 

35 

16 

38 

16 

534 

39 

16 

535 

40 

16 
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N 536 

N 541 

M 546 

H 551 

N 556 

H 561 

H 566 

N 571 

N 576 

N 581 

M 586 

N 591 

N 596 

N 601 

N 606 

W 611 

M 616 

N 621 

H 626 

N 631 

H 636 

N 641 

H 646 

N 651 

N 656 

H 661 

H 666 

N 671 

H 67 6 

N 681 

N 686 

ft 691 

H 696 

W 701 

M 706 

H 711 

N 716 

N 721 

H 726 

tt 731 

M 736 

N 741 

H 746 

N 751 

N 756 

M 761 

H 766 

H 771 

N 776 

N 781 

H 786 

N 791 

H 796 

N 801 


41 

16 

537 

42 

16 

538 

43 

16 

539 

44 

16 

540 

45 

16 

46 

16 

542 

47 

16 

543 

1 

17 

544 

A. 

17 

545 

3 

17 

4 

17 
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s B 30 160 -4 -3 -8 -7 0 -4 

S 8 30 190 4 -3 0 1 0 1 

S 8 30 220 *12 -3 8 8 0 -10 

S 8 30 250 -4 5 8 8 0 -10 

S 8 30 280 12 13 8 8 0 17 

S 8 30 310 -12 5 8 8 0 -4 

$ 8 30 340 -4 -3 0 1 0 -4 

S 8 40 10 2 -2 -3 -8 0 4 

S 8 40 40 -4 -5 3 1 0 -6 

S B 40 70 -4 -2 3 1 0 -4 

S 8 40 100 -1 -5 3 -2 0 -1 

S 8 40 130 -4 -2 3 -2 0 -4 

S 8 40 160 -4 -5 0 -5 0 -6 

S fl 40 190 -4 -5 -3 -8 0 -6 

S 8 40 220 2 -2 0 -8 0 -1 

S 8 40 250 2 5 9 7 0 1 

S 8 40 280 4 11 -9 16 0 4 

S 8 40 310 A 8 -.1 10 0 11 

S 8 40 340 6 2 0 -5 0 11 

S 8 52 10 2 0 0 12 0 3 

S 8 52 40 6 6 7 14 0 4 

S 8 52 70 0 7 6 4 0 -4 

S 8 52 100 2 7 4 0 0 0 

S 8 52 130 0 4 7 0 0 2 
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s 10 04 340 - 2 ? '39 *19 "6 

S 10 90 10 -13 14 42 42 

5 10 90 40 5 14 34 42 

S 10 90 70 -17 -26 12 28 

S 10 90 100 -4 23 6 -1 

S 10 90 130 10 23 -24 -B 

S 10 90 160 27 14 -30 -29 

S 10 90 190 -4 23 -30 -36 

S 10 90 220 10 '6 -12 *29 

S 10 90 250 5 -16 12 -8 

S 10 90 280 23 -1 6 -8 

S 10 90 310 -13 -21 0 6 

S 10 90 340 -30 -41 -38 -1 

S 11 30 10 -4 -8 -41 -58 

S 11 30 40 3 1 -32 -58 

S 11 30 70 3 1 -32 -38 

S 11 30 100 3 -8 -14 13 

S 11 30 130 -6 -8 31 93 

S 11 30 160 -6 1 75 123 

S 11 30 190 3 9 75 113 

S 11 30 220 3 9 49 53 

S 11 30 250 -6 1 4 -28 

S 11 30 280 3 9 -41 -68 

S 11 30 310 3 1 -32 -70 

S 11 30 340 3 -8 -41 -68 

S 11 40 10 6 8 -35 -77 

S 11 40 40 13 15 -27 - 68 . 

S 11 40 70 10 15 -23 -24 

S 11 40 100 0 -10 -16 7 

S 11 40 130 -4 -6 27 78 

S 11 40 160 -7 4 65 123 

S 11 40 190 -4 18 96 127 

S 11 40 220 -7 18 77 7 B 

S 11 40 250 -4 -3 23 -1 

S 11 40 280 0 - 13-35 -64 

S 11 40 310 -4 -27 -78 -90 

5 11 40 340 0 -20 -74 -90 

S 11 52 10 14 35 11 -79 

S 11 5 2 40 29 55 -16 -60 

S 11 52 70 19 49 -18 -42 

S H 52 100 13 12 -16 2 

S 11 52 130 3 -23 13 56 

S 11 52 160 3 2 60 123 

S 11 52 190 -1 5 71 128 

S U 52 220 -4 -11 56 79 

S 11 52 250 -29 -11 7 9 

S U 52 280 -24 -40 -36 -51 

S 11 52 310 -24 -45 -67 -79 

5 11 52 340 0 -28 -63 -06 

S n 60 10 14 31 0 -87 

S 11 60 40 32 50 -22 -73 

S It 60 70 27 50 -28 -52 

S U 60 100 14 12 -28 -17 

S 11 60 130 -3 -27 23 53 
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17 

21 

28 

38 

40 

RW 

11 

75 

35 

39 

43 

44 

44 

32 

37 

41 

42 

42 

RW 

11 

30 

31 

34 

41 

52 

55 

37 

47 

59 

60 

61 

RW 

11 

85 

42 

39 

46 

52 

54 

56 

61 

71 

50 

58 

RW 

11 

90 

76 

56 

56 

53 

54 

76 

100 

109 

55 

56 

RW 

11 

too 

74 

60 

54 

53 

53 

74 

90 

81 

53 

53 

RW 

11 

120 

71 

65 

52 

52 

52 

71 

79 

52 

52 

52 

RW 

11 

140 

69 

69 

69 

69 

69 

69 

69 

69 

69 

69 

RW 

11 

160 

87 

87 

87 

97 

8? 

87 

87 

87 

87 

87 

RW 

11 

ISO 

87 

07 

87 

87 

87 

87 

87 

87 

87 

87 

RW 

11 

200 

87 

87 

87 

87 

87 

87 

87 

87 

87 

87 

RW 

12 

0 

2 

5 

7 

6 

6 

3 

5 

6 

6 

6 

RW 

12 

5 

5 

9 

12 

11 

11 

4 

9 

12 

11 

11 

RW 

12 

10 

0 

15 

15 

11 

10 

7 

15 

15 

12 

10 

RW 

12 

15 

9 

12 

10 

9 

9 

7 

12 

10 

10 

10 

RW 

12 

20 

10 

8 

10 

10 

11 

4 

6 

9 

11 

12 

RW 

12 

25 

10 

34 

14 

14 

13 

2 

34 

10 

12 

13 

RW 

12 

30 

17 

13 

19 

18 

18 

4 

6 

14 

19 

21 

RW 

12 

35 

17 

20 

22 

22 

23 

8 

9 

18 

23 

25 

RW 

12 

40 

20 

24 

23 

27 

28 

7 

13 

22 

28 

30 

RW 

12 

45 

27 

29 

27 

30 

30 

11 

14 

23 

29 

31 

RW 

12 

50 

25 

31 

31 

32 

31 

12 

15 

25 

30 

30 

RW 

12 

55 

23 

32 

33 

35 

35 

17 

17 

23 

31 

33 

RW 

12 

60 

23 

29 

34 

35 

35 

18 

21 

23 

30 

32 

RW 

12 

65 

20 

37 

44 

36 

34 

21 

24 

36 

44 

47 

RW 

12 

70 

30 

41 

43 

34 

30 

17 

22 

31 

44 

48 

RW 

12 

75 

35 

38 

45 

49 

50 

32 

41 

45 

42 

41 

RW 

12 

80 

31 

33 

44 

59 

63 

37 

47 

61 

63 

64 

RW 

12 

85 

41 

35 

46 

57 

60 

56 

61 

74 

60 

60 

RW 

12 

90 

76 

54 

62 

55 

56 

78 

113 

118 

56 

57 

RW 

12 

100 

74 

59 

57 

53 

53 

75 

99 

85 

53 

53 

RW 

12 

120 

72 

64 

52 

52 

52 

72 

84 

52 

52 

52 

RW 

12 

140 

69 

69 

69 

69 

69 

69 

69 

69 

69 

69 


B-57 



RW 

12 

160 

87 

87 

87 

87 

87 

87 

Rtf 

12 

180 

87 

87 

87 

87 

87 

87 

Rtf 

12 

200 

87 

87 

87 

87 

87 

87 

Rtf 

13 

0 

3 

5 

6 

5 

5 

3 

Rtf 

13 

5 

6 

10 

11 

10 

10 

4 

Rtf 

13 

10 

8 

18 

15 

12 

11 

6 

Rtf 

13 

15 

10 

16 

10 

9 

? 

6 

Rtf 

13 

20 

10 

11 

10 

11 

11 

4 

Rtf 

13 

25 

11 

11 

10 

11 

11 

3 

Rtf 

13 

30 

14 

9 

12 

13 

13 

4 

Rtf 

13 

35 

15 

15 

16 

16 

15 

7 

Rtf 

13 

AD 

17 

17 

20 

18 

18 

6 

Rtf 

13 

45 

23 

20 

24 

22 

21 

11 

Rtf 

13 

50 

21 

21 

29 

23 

22 

12 

Rtf 

13 

55 

20 

22 

27 

27 

27 

16 

Rtf 

13 

60 

21 

24 

27 

27 

26 

17 

Rtf 

13 

65 

1? 

32 

35 

2? 

27 

20 

Rtf 

13 

70 

28 

34 

35 

2? 

26 

17 

Rtf 

13 

75 

35 

39 

42 

41 

40 

31 

Rtf 

13 

80 

31 

36 

43 

49 

51 

37 

Rtf 

13 

85 

43 

47 

52 

52 

54 

56 

Rtf 

13 

90 

78 

73 

68 

57 

57 

75 

Rtf 

13 

100 

76 

69 

60 

53 

53 

75 

RW 

13 

120 

72 

76 

52 

52 

52 

71 

Rtf 

13 

140 

69 

69 

69 

69 

6? 

69 

Rtf 

13 

160 

87 

87 

87 

87 

87 

87 

Rtf 

13 

180 

87 

87 

87 

87 

87 

87 

Rtf 

13 

200 

87 

87 

87 

87 

87 

87 


ENJ OF FILE WRITTEN ■ 






tllRi 

[I* T ANNUAL PERCENTS! 

» CODE pm 




P 

13 

0 

761 

599 

498 

435 

415 

633 

P 

13 

5 

734 

610 

535 

488 

473 

617 

P 

13 

10 

70 7 

622 

572 

540 

530 

601 

P 

13 

15 

679 

633 

608 

592 

587 

586 

P 

13 

20 

652 

644 

645 

644 

645 

570 

P 

13 

25 

621 

643 

663 

673 

677 

616 

P 

13 

30 

607 

672 

71? 

747 

757 

500 

P 

13 

35 

571 

696 

784 

S38 

856 

459 

P 

13 

40 

531 

692 

808 

877 

?00 

508 

P 

13 

45 

523 

690 

802 

869 

8?2 

534 

P 

13 

50 

495 

667 

78? 

863 

887 

491 

P 

13 

55 

471 

646 

770 

846 

871 

483 

P 

13 

60 

517 

655 

753 

813 

832 

5B7 

P 

13 

65 

550 

642 

707 

747 

760 

681 

P 

13 

70 

583 

629 

662 

682 

688 

648 

P 

13 

75 

616 

616 

616 

616 

616 

615 

P 

13 

80 

637 

637 

637 

637 

637 

571 

P 

13 

85 

657 

657 

657 

657 

657 

526 

P 

13 

90 

678 

678 

678 

678 

678 

482 

P 

13 

100 

719 

719 

71? 

719 

719 

393 

P 

13 

120 

599 

599 

599 

599 

59? 

328 

P 

13 

140 

479 

47? 

47? 

47? 

47? 

262 


87 

87 

87 

87 

87 

87 

67 

87 

87 

87 

87 

87 

5 

6 

5 

r 

J 

8 

11 

10 

10 

12 

15 

12 

li 

10 

10 

9 

9 

5 

7 

9 

10 

10 

7 

10 

11 

5 

9 

13 

14 

7 

11 

16 

17 

B 

13 

18 

20 

10 

14 

20 

22 

11 

16 

22 

24 

13 

17 

22 

23 

16 

19 

23 

25 

21 

27 

30 

31 

24 

28 

32 

33 

35 

43 

44 

44 

48 

56 

55 

54 

61 

66 

56 

56 

?; 

106 

63 

62 

81 

74 

53 

53 

72 

52 

52 

52 

69 

69 

6? 

6? 

97 

87 

87 

87 

87 

87 

87 

87 

87 

87 

87 

87 


504 

414 

361 

341 

485 

495 

762 

829 

852 

522 

455 

417 

401 

472 

495 

758 

827 

851 

540 

497 

472 

461 

45? 

496 

753 

825 

850 

557 

538 

527 

522 

447 

496 

749 

824 

849 

575 

57? 

582 

582 

434 

497 

745 

822 

848 

613 

611 

611 

610 

445 

519 

732 

803 

827 

591 

656 

695 

707 

390 

454 

740 

828 

857 

613 

722 

788 

810 

362 

520 

752 

850 

883 

654 

758 

821 

841 

412 

588 

714 

790 

815 

670 

766 

824 

844 

440 

551 

630 

678 

693 

649 

762 

830 

853 

418 

493 

545 

577 

588 

636 

746 

812 

834 

430 

472 

502 

520 

526 

673 

734 

771 

784 

544 

570 

588 

600 

604 

710 

730 

742 

747 

677 

703 

722 

733 

737 

663 

673 

679 

681 

574 

587 

597 

602 

604 

615 

615 

615 

615 

471 

471 

471 

471 

471 

571 

571 

571 

571 

455 

455 

455 

455 

455 

526 

526 

526 

526 

439 

439 

439 

439 

439 

482 

482 

482 

482 

422 

422 

422 

422 

422 

393 

393 

393 

393 

390 

390 

390 

390 

390 

328 

328 

328 

328 

325 

325 

325 

325 

325 

262 

262 

262 

262 

260 

260 

260 

260 

260 


B-58 



p 

13 

160 

360 

360 

p 

13 

180 

240 

240 

p 

13 

200 

120 

120 

PW 

13 

0 

961 

911 

PW 

13 

5 

941 

904 

PW 

13 

10 

922 

897 

hi 

13 

15 

903 

890 

hi 

13 

20 

884 

883 

PW 

13 

25 

864 

878 

PW 

13 

30 

854 

872 

PW 

13 

35 

*21 

858 

PW 

13 

40 

794 

854 

PW 

13 

45 

798 

853 

PW 

13 

50 

768 

831 

PW 

13 

55 

734 

761 

PW 

13 

60 

721 

686 

PW 

13 

65 

743 

720 

PW 

13 

70 

765 

753 

PW 

13 

75 

787 

787 

PW 

13 

80 

760 

760 

PW 

13 

85 

734 

734 

PW 

13 

90 

707 

707 

PW 

13 

100 

654 

654 

PW 

13 

120 

615 

615 

PW 

13 

140 

575 

575 

PW 

13 

160 

536 

536 

PW 

13 

180 

496 

496 

PW 

13 

200 

457 

457 

tttSNALL l LARGE SCALE (Hi AND 0- 

CS 

13 

0 

-55 

-17 

CS 

13 

5 

-61 

-22 

CS 

13 

10 

-67 

-26 

CS 

13 

15 

-74 

-31 

CS 

13 

20 

-80 

-36 

CS 

13 

25 

-86 

-71 

CS 

13 

30 

-122 

-67 

CS 

13 

35 

-113 

-46 

CS 

13 

40 

-72 

-8 

CS 

13 

45 

-51 

-9 

CS 

13 

50 

-107 

-52 

CS 

13 

55 

-213 

-89 

CS 

13 

60 

-102 

-108 

CS 

13 

65 

-137 

*77 

CS 

13 

70 

-143 

-82 

CS 

13 

75 

-149 

-86 

CS 

13 

80 

-155 

-91 

CS 

13 

85 - 

-162 

-96 

CS 

13 

90 - 

-168 - 

-100 

CS 

13 

100 - 

-181 - 

-109 

CS 

13 

120 - 

-101 - 

-109 

CS 

13 

140 - 

■181 - 

-109 

CS 

13 

160 - 

181 - 

109 

CS 

13 

180 - 

181 - 

109 


360 

360 

360 

197 

240 

240 

240 

131 

120 

120 

120 

66 

866 

873 

828 

320 

869 

847 

840 

321 

873 

857 

852 

323 

876 

867 

864 

324 

880 

B 77 

876 

327 

887 

392 

894 

344 

885 

892 

895 

324 

885 

901 

906 

304 

896 

921 

930 

328 

899 

927 

937 

349 

876 

903 

912 

339 

781 

793 

797 

366 

662 

647 

642 

469 

704 

694 

690 

601 

745 

740 

739 

694 

787 

787 

787 

787 

760 

760 

760 

760 

734 

734 

734 

734 

707 

707 

707 

707 

654 

654 

654 

654 

615 

615 

615 

615 

575 

575 

575 

575 

536 

536 

536 

536 

496 

496 

496 

496 

457 

457 

457 

457 


D ANNUAL CORRELATIONS t CODE 


-47 

-65 

-70 

108 

-42 

-54 

-58 

82 

-38 

-44 

-46 

56 

-33 

-34 

-34 

30 

-20 

-24 

-22 

4 

-60 

-54 

-52 

1 

-28 

-4 

4 

-56 

2 

30 

40 

-75 

37 

65 

75 

*101 

22 

40 

46 

*152 

-12 

10 

18 

-169 

0 

52 

70 

-183 

-15 

41 

60 

-173 

15 

68 

87 

-231 

19 

79 

99 

-256 

24 

89 

112 

-283 

29 

99 

124 

-309 

34 

no 

136 

-335 

38 

120 

148 

-361 

48 

140 

172 

-413 

48 

140 

172 

-413 

48 

140 

172 

-413 

48 

140 

172 

-413 

48 

140 

172 

-413 


197 

197 

197 

197 

131 

131 

131 

131 

66 

66 

66 

66 

606 

921 

693 

733 

599 

m 

721 

759 

591 

864 

748 

785 

583 

835 

775 

810 

575 

806 

803 

836 

575 

739 

839 

872 

552 

751 

832 

859 

545 

786 

890 

918 

550 

706 

944 

974 

537 

618 

920 

943 

409 

650 

056 

889 

450 

649 

771 

811 

550 

674 

749 

773 

733 

794 

842 

858 

750 

790 

834 

822 

787 

787 

787 

787 

760 

760 

760 

760 

734 

734 

734 

734 

707 

707 

707 

707 

654 

654 

654 

654 

615 

615 

615 

615 

575 

575 

575 

575 

536 

536 

536 

536 

496 

496 

496 

496 

457 

457 

457 

457 


CSf CL HI 

-27 -122 -181 -201 

-29 -107 -156 -173 

-32 -93 -131 -144 

-34 -78 -106 -116 

-36 -64 - 6*2 -88 

-73 -125 -157 -168 

-75 -88 -97 -100 

-25 11 32 39 

15 98 147 163 

-8 95 157 177 

-38 55 111 129 

-72 8 56 72 

-93 -37 -2 9 

-56 68 143 168 

-58 82 168 196 

•61 97 193 225 

63 112 218 253 

65 126 243 281 

67 141 268 310 

72 170 318 366 

72 170 318 366 

72 170 318 366 

n 170 318 366 

72 170 318 366 


195 

195 

195 

195 

195 

130 

130 

130 

130 

330 

65 

65 

65 

65 

65 


B-59 


cs 

13 

200 

-181 

-109 

48 

CL 

13 

0 

303 

-207 

-576 

a 

13 

5 

289 

-202 

-553 

a 

13 

10 

270 

-197 

-530 

a 

13 

15 

251 

-191 

-507 

Cl 

13 

20 

232 

-186 

-484 

a 

13 

25 

283 

-150 

-459 

a 

13 

30 

223 

-159 

-432 

a 

13 

35 

56 

-202 

-385 

CL 

13 

40 

96 

-183 

-382 

CL 

13 

45 

163 

-170 

-407 

CL 

13 

50 

137 

-180 

-405 

CL 

13 

55 

124 

-144 

-335 

CL 

13 

60 

79 

-108 

-240 

CL 

13 

65 

60 

-138 

-277 

a 

13 

70 

41 

-133 

-254 

a 

13 

75 

22 

-127 

-231 

CL 

13 

80 

3 

-122 

-208 

a 

13 

85 

-16 

-117 

-185 

a 

13 

90 

-36 

-111 

-162 

a 

13 

100 

-74 

-101 

-116 

CL 

13 

120 

-74 

-101 

-116 

a 

13 

140 

-74 

-101 

-116 

a 

13 

160 

-74 

-101 

-116 

CL 

13 

180 

-74 

-101 

-116 

a 

13 

200 

-74 

-101 

-114 



END DF FILE WRITTEN 



ttWIIASI-MENNf#. 

OSCILLATIONS* 

CODE 

Of 

15 

1 

291 

l 

807 

Of 

20 

2 

248 

2 

778 

OP 

25 

3 

369 

3 

811 

OP 

30 

6 

63 

8 

675 

OP 

35 

3 

49 

15 

669 

OP 

40 

9 

39 

22 

665 

OP 

45 

8 

27 

26 

645 

OP 

50 

9 

ffl 

27 

595 

OP 

55 

11 

825 

26 

574 

OP 

60 

16 

837 

31 

580 

OP 

65 

13 

73? 

26 

525 

OP 

70 

11 

689 

21 

497 

OP 

75 

8 

646 

16 

469 

OP 

80 

5 

603 

10 

441 

OP 

95 

3 

560 

5 

413 

OP 

90 

0 

517 

0 

384 

GD 

15 

5 

428 

2 

151 

QO 

20 

10 

368 

5 

95 

QD 

25 

55 

410 

7 

183 

00 

30 

6 

287 

5 

807 

QD 

35 

6 

76 

9 

699 

QO 

40 

8 

66 

15 

695 

QO 

45 

9 

40 

24 

668 

OD 

50 

8 

B49 

28 

625 


140 

172 

-413 

-72 

170 

318 

366 

796 

-869 

23 

145 

235 

289 

309 

763 

-832 

23 

136 

218 

268 

287 

•729 

-795 

23 

126 

202 

248 

265 

696 

-759 

24 

117 

185 

227 

242 

663 

-722 

24 

107 

169 

207 

220 

644 

-705 

-18 

6? 

131 

169 

182 

595 

-650 

74 

116 

147 

165 

172 

■495 

-532 

30 

107 

163 

196 

207 

■502 

-542 

-4 

40 

71 

90 

96 

•549 

-596 

34 

-30 

-76 

-102 

-111 

•540 

-586 

50 

-47 

-116 

-157 

-171 

■450 

-4S9 

36 

-50 

-no 

-146 

-159 

■320 

-347 

-2 

-84 

-143 

-178 

-190 

■361 

-390 

26 

-94 

-160 

-200 

-214 

•328 

-353 

26 

-111 

-180 

-222 

-237 

-294 

-316 

27 

-127 

-199 

-243 

-259 

■261 

-280 

27 

-144 

-219 

-265 

-282 

■227 

-243 

27 

-160 

-238 

-287 

-304 

-194 

-206 

27 

-177 

-258 

-309 

-327 

-127 

-132 

28 

-210 

-297 

-352 

-372 

-127 

-132 

28 

-210 

-297 

-352 

-372 

-127 

-132 

28 

-210 

-297 

-352 

-372 

-127 

-132 

28 

-210 

-297 

-352 

-372 

-127 

-132 

28 

-210 

-297 

-352 

-372 

-127 

-132 

28 

-210 

-297 

-352 

-372 


, oDi qt> aur of: mu 


1 

554 

1 

404 

1 

353 

2 

537 

2 

392 

2 

344 

3 

506 

3 

323 

3 

262 

10 

491 

11 

381 

12 

344 

20 

491 

23 

385 

24 

349 

31 

491 

37 

387 

39 

352 

3? 

465 

47 

357 

49 

321 

40 

422 

48 

317 

50 

282 

37 

395 

43 

288 

45 

251 

42 

396 

49 

285 

51 

249 

35 

378 

41 

289 

43 

259 

28 

360 

33 

277 

34 

250 

21 

342 

25 

266 

26 

240 

14 

325 

16 

254 

17 

231 

7 

307 

8 

243 

? 

222 

0 

289 

0 

231 

0 

212 

1 

823 

0 

704 

0 

665 

1 

770 

1 

653 

1 

614 

0 

30 

1 

805 

1 

773 

4 

557 

4 

407 

3 

357 

11 

523 

12 

417 

13 

382 

20 

522 

23 

419 

24 

384 

35 

496 

42 

393 
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-475 

1188 

-2589 

-1459 

0 

0 

0 

0 

0 


END OF FILE WRITTEN 
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APPENDIX C 


SAMPLE INPUT AND OUTPUT FOR THE GRAM PROGRAM 

Input to GRAM is as follows: 

(All input data cards are in free field format.) 


INITIAL HEIGHT 
INITIAL LATITUDE - 

INITIAL WEST 
LONGITUDE 

FIO. 7 


MEAN FI 0.7 
AP 

DATE 

GREENWICH TIME 

-AT INCREMENT 

JEST LON 
INCREMENT 

1EIGHT INCREMENT - 


Height of starting position, km 

Latitude of starting position (degrees, southern lati- 
tudes negative) 

West longitude of starting position (degrees, 0 to 360 
degrees, or east longitudes negative) 

Solar 10.7 cm radio noise flux (ICf 22 watts/m 2 ) at time 
of calculations. Use zero if height does not go over 
90 km. Use 230 for design applications or consult Aero- 
space Environment Division (AED) of Marshall Space Flight 
Center (MSFC) for monthly predictions. 

81 day mean solar 10.7 cm flux. Use zero if height does 
not go over 90 km. Use 230 for design applications or 
consult AED, MSFC for monthly predictions. 

Geomagnetic index a p . Use zero if height does not go 
over 90 km. Use 20.3 for design steady state conditions, 
or 400 for maximum conditions, or consult AED, MSFC. 

Date for starting time of calculations (month, date, two 
digit year). Use month 13 for annual reference period. 

Time for starting position (hours, minutes, seconds). 

Use time corresponding to local time - 0900 for design 
steady state, or 1400 maximum conditions. 

Latitude displacement (degrees) between successive posi- 
tions (new 1 at = old lat + lat increment). Use zero if 
trajectory positions are to be read in. 

West longitude displacement (degrees) between successive 
positions (new long = old Ion + Ion increment). Use zero 
if trajectory positions are to be read in. 

Height decrease (km) between successive positions (new 
height = old height - height increment). Normal profiles 
are generated downward. If an upward generated profile 
id desired set height increment negative. 
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CARD 2 3 k= CARD 1 


MAXIMUM NUMBER OF Number of positions to be computed, Pot including initial 

POSITIONS - position. Use zero If trajectory positions are to be 

read in. 

TIME INCREMENT - Time displacement (seconds) between successive positions 

for automatically generated profiles (new time = old time 
+ time increment) 

0 for linear profile generated automatically internal to 
the program, or value equal to unit number (e.g. 5 for 
card input) for a trajectory with each position to read 
in. 

0 for no non-print output of atmospheric parameter values, 
or value equal to unit number to get non-print output. 

Lowest latitude (magnitude) for which geostrophic winds are 
to be used in 4-D (0-25 km) and Jacchia (above 90 km) height 
segments. Otherwise, interpolation is used to fill in winds. 
In middle heights (25-90 km), the spherical harmonic model 
is used at all latitudes. 


GROVES INPUT UNIT - Unit number for tape containing Groves and stationary per- 
turbations (SCIDAT tape in Appendix A). Use any available 
unit number. 

RANDOM INPUT UNIT - Unit number of file from which random perturbation data are 

to be read. If same as Groves input unit, these are read 
from SCIDAT tape. If card input, use 5. 

QBO INPUT UNIT - Unit number of file from which QBO parameters are to be 

read. If same as Groves input unit, these are read from 
SCIDAT tape. If card input, use 5. 

4-D INPUT UNIT - Unit number for 4-D input data tape. Use any available 

unit number. 

RANDOM OPTION - 1 means compute random perturbation output, 2 means do not 

compute random perturbation output. 

QBO OPTION - 1 means compute QBO output, 2 means do not compute QBO output. 

FIRST RANDOM Initial number for random number generator used to compute 

NUMBER ’ random perturbations (can be any odd positive integer). 

Use 1 for standard design applications. 

NMC READ OPTION - 0 means read NMC grid data from SCIDAT tape, otherwise 

these data are read from cards. 

4-D, P, D, T, _ Unit number for scratch file for 4-D grid profiles required 

SCRATCH UNIT ” in computations. Use any available unit number. This nor- 

mally is a temporary drum file. 


TRAJECTORY OPTION - 

OUTPUT OPTION 

MIN. GE0STR0PH. 

LAT. 
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NMC GRID POINTS 
SCRATCH UNIT 


Unit number for scratch file to store NMC grid point data. 
Use any available unit number. This normally is a tempo- 
rary drum file. 


*o 

+-> 

c 

o 

o 


CM 

O 

cc 

C 

o 


f 


INITIAL PL, DL, 
TL, PS, DS, TS 


§ INITIAL UL, VL, 
% US, VS 

i i 


Initial values of large scale and small scale random rela- 
tive pressure, density, and temperature perturbations, 
percent. Use zeros for standard design applications. 

Initial values of large scale and small scale random wind 
components, m/s. Use zeros for standard design appli- 
cations. 


* - Include card 3 only if random option = 1. 


TRAJECTORY INPUT 

TRAJECTORY BACKUP 
RECORD 


Use only if linear profile is not to be generated automati- 
cally. Each record has time (seconds), height (km), lati- 
tude (degrees), and west longitude (degrees). 

Only if trajectory input is used. Same form as a trajec- 
tory position but with any negative height value. 


The trajectory input records are optional, in free field format. If 
included, use as many records (e.g. cards), as necessary. 

Input for the following sample output listing is a$ follows: 

CARD1: 92.0, 28.45, 80.53, .0, .0, .0, 1, 1, 75, 0, 0, 0, .0, .0, 2., 47, 0, 0, 

0, 20, 

CARD2 : 3, 3, 3, 4, 1 , 1 , 1 , 0, 12, 13 
CARD3: 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 


A SUMMARY OF THE ORGANIZATION OF AN 
INPUT DATA DECK IS AS FOLLOWS 


Initial Data 

Card 1, as described at the beginning of this Appendix 
Card 2, as described at the beginning of this Appendix 
Card 3, optional, included only if random option = 1 
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NMC Grid Data 


Optional. Include as card input only if this is not to be read from 
the SCIDAT data tape. 

Random Perturbation Data 

Optional. Include as card input only if the random input unit is 5 and 
these data are not to be read from the SCIDAT data tape or some other input 
file. Do not include if random option = 2. 

QBO Parameters 

Optional. Include as card input only if the QBO input unit is 5 and 
these data are not to be read from the SCIDAT data tape or some other file. 
Do not include if QBO option = 2. 

Trajectory Position Data and Backup Card 

Optional. Include if trajectory, rather than linear profile generated 
by the program is to be evaluated, and if trajectory option is 5. Trajec- 
tory data is on other file if trajectory unit is not 0 or 5. 

More 'Data of the Same Kind (Starting with Initial Data, Card 1) 

If additional trajectories or profiles are to be evaluated, the data 
may be input one set immediately after the other. The program is actually 
more efficient for such multiple runs if the month remains the same. This 
is because as long as the month remains the same the SCIDAT data tape read 
can be avoided for each subsequent data set. 

OUTPUT TO GRAM IS AS FOLLOWS 

JULIAN DATE - Computed from input date, set equal to zero for month 13 

(annual average) 

INITIAL STAND- - Computed for initial position on input data 
ARD DEVIATIONS 
IN P, D, T, U, 

V FOR LARGE 
SCALE AND SMALL 
SCALE 
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HEIGHT, LAT, LON, Position and time where atmospheric parameters are eval- 
TIME uated 

Computed from Jacchia, 4-D, or Groves - plus - stationary 
perturbations, depending on height. 


TOTAL PRESSURE, Monthly means plus random perturbations and QBO pertur- 
DENSITY, TEMPE- - bations 
RATURE, AND 
MIND 

THERMAL WIND 
SHEAR 


MEAN VERTICAL 
MIND 

PERTURBATION 

VALUES 


From thermal wind equations using finite differences of 
Jacchia, 4-D, or Groves - plus - stationary perturbations, 
depending on height. 

From mean isentropic surface slopes 


Stationary perturbations, QBO perturbations and amplitudes, 
and random perturbations and magnitudes for the small scale 
(S), large scale (L), and total (T) perturbations. Per- 
turbations are those which are added to monthly means to 
produce total results output. 


UNPERTURBED PRES- 
SURE DENSITY, 
TEMPERATURE AND 
GEOSTROPHIC WIND 
(monthly mean 
values) 


Following is a listing of sample output from the GRAM program. Initial 
lines of output are merely listings of the input data for easy reference. 
These listings are provided to indicate formats and kinds of input and output 

data. For a listing of the input cards for these sample outputs, see earlier 
in the Appendix. 
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1 mttt GLOBAL REFERENCE ATMOSPHERE - MOD 3 tXHtt 


INITIAL HEIGHT = 92.00 KM 

F10.7 = 0.00 

DATE = 1/ 1/75 

LAT INCREMENT = 0.00 ICG 

MAXIMUM NUMBER OF POSITIONS = 47 

TRAJECTORY OPTION = 0 

GROVES IHPUT UNIT = 3 

4-D INPUT UNIT = 4 

FIRST RANDOM NUMBER = 1 

NNC READ OPTION = 0 

MHC GRIB POINTS SCRATCH UNIT = 13 


INITIAL LAT = 28.45 DEG 
HEAR F10.7 = 0.00 

GREENWICH TIKE = OJ 01 0 
NEST LON INCREMENT = 0,00 DEG 

TIME INCREMENT = 0 SEC 

OUTPUT OPTION = 0 

RANDOM INPUT UNIT = 3 
RANDOM OPTION = 1 

4-0 PrD»T DATA SCRATCH UNIT = 12 
JULIAN DATE = 2442414,0 


INITIAL WEST LON = 80.53 DEG 
AP ^ 0.00 

HEIGHT INCREMENT = 2,00 KM 

MIN GEQSTROPH LAT = 18,0 

QBO INPUT UNIT = 3 
QBO OPTION = 1 


INITIAL P»M = 
INITIAL UtV = 

INITIAL P»D»T = 
INITIAL UfV = 


0.00 Z 0.00 Z 0.00 Z SIGMA P»Oi 

0.00 H/S 0.00 H/S SIGMA UrV 

0.00 l 0.00 I 0.00 Z SIGMA PiDi 

0.00 M/S 0,00 H/S SIGMA Ur V 


11.13 Z 
47.43 H/S 

11.04 Z 6.58 Z 

93.93 H/S 

LARGE SCALE 

7,53 X 
31.35 M/S 

11.89 Z 7.81 Z 

42.02 H/S 

SHALL SCALE 


INITIAL UDLfVDL = -10.39 Z -16.73 Z 


INITIAL UDSfVDS = -10.71 l -9.15 Z 


tt PERCENT DEVIATIONS FROM 1962 US STANDARD ATMOSPHERE APPEAR BELOW PRESSURE t DENSITY AND TEMPERATURE VALUES 4* 


HEIGHT 

(KM) 

TIME 

(SEC) 

90,00 

0 


UNPERTURBED (MONTHLY MEAN) MEAN PLUS PERTURBATIONS 


LAT WEST PRES. DENS. TEMP GEOSTROPH. PRES. DENS. TEMP TOTAL 

LON (NT/ (KB/ (DEG WIND (h/SI (NT/ (KG/ (DEG WIND (M/S) 

(DEG) (DEG) KII2) Ml 13) KEL- H**2> Mlt3) KEL 

VIN) E-M N-S VIN) E-W N-S 

28.45 80,53 .199EIOO .367E-05 189. 0. 4. .230E400 .390E-05 207. -30. 66 . 

21, OZ 15. BZ 4.5Z 40,11 23.0Z 14, 3Z 


88.00 28,45 80,53 .281EFOO .513E-05 191. 7. 7. .331EFOO .556E-05 209, 13. 60. 

0 18. 5Z 12. OZ 5,9Z 39. 4Z 21. 3Z 15, 6Z 


THERMAL 

WIND PERTURBATION VALUES 
SHEAR 

(M/S/KM) 

p D T U V W 

E-W N-S (Z) (Z) (Z) M/S M/S CM/S 

-.8 -.4 


7.9 

7.8 

.1 



SP 

0.0 

0,0 

0,0 

0. 

0, 

QBO 

0.0 

0,0 

0,0 

0. 

0. 

MAG 

9.4 

2,6 

6,7 

-4. 

7. 

RANS 

7,7 

11.8 

8.2 

30, 

62, 

SI6S 

6.3 

3.6 

2,7 

-26. 

54, 

RAML 

11.1 

11,4 

7.0 

47. 

97. 

S16L 

15.7 

6,3 

9,4 

-30, 

62. 

RANT 

13.5 

16,4 

10.8 

56. 

115. 

SI6T 

J 





-.09 

7.7 

7.3 

,4 



SP 

-.1 

-,1 

-.0 

-0. 

0. 

MO 

.2 

,1 

.0 

0. 

0. 

MAG 

7,6 

-.5 

8.1 

14. 

25. 

RANS 

7.3 

10,0 

7.1 

26. 

52. 

SIGS 

10.1 

9.1 

1.1 

-8. 

28. 

RANI 

10.4 

10.0 

6.2 

41. 

82. 

SIGL 

17,7 

8.5 

9.2 

6. 

53, 



C-6 



12,7 14,1 9.4 48. 97. SI6T 


W.W 2B, 45 00,53 .398E+00 .716E-05 194, 14. 

0 16.02 8.22 7.42 


9, .455EL00 .747E-05 213. 22. 

32, 7Z 12.92 18,02 


04,00 28,45 80,53 .560E+00 .996E-05 196. 18, 

0 12,92 4.12 8,72 


10. .637EfOO .1O4E-04 214, 
28,52 8.82 18.62 


5. 


7.5 

6,8 

.7 



SP 

-.1 

-.2 

-.0 

-1. 

0. 

GBO 

.4 

,2 

,1 

1. 

0. 

MAG 

3.6 

-2.0 

5.6 

22, 

-13. 

RAWS 

6.9 

7.8 

5.9 

20. 

39, 

SIGS 

10,9 

6.6 

4,4 

-13, 

9, 

RAM 

9,6 

8.1 

5,2 

33, 

64, 

SIGL 

14,5 

4,6 

9,9 

9. 

-4. 

RAWT 

11.8 

11.3 

7,9 

39, 

75. 

SrGT 


7.3 

6.4 

1.0 



SP 

-.1 

-.4 

-.0 

-1. 

0. 

QBO 

.6 

.4 

,1 

1. 

0. 

MAG 

6.4 

1.1 

5,3 

28, 

-1. 

RAWS 

6.5 

6.5 

5,1 

17. 

30, 

SIGS 

7,5 

3,7 

CO 

r*> 

-40, 

-4, 

RAM 

8.9 

6.9 

4,5 

29, 

50. 

SIGL 

14.0 

4,8 

9,1 

-12. 

-5, 

RAWT 

11.0 

9,5 

6,8 

34, 

58. 

SIGT 


02,00 28.45 80,53 .702E+OO .138E-04 198, 
0 9,12 -,42 9,82 


20 . 


80.00 28.45 80.53 .109E401 .191E-04 200. 
0 5,32 -4.72 10,82 


21 . 


9, .868E4O0 .146E-04 208. 
21.12 5.32 15.22 


-3. -9. -.9 


7, , 120E401 .207E-O4 202, -14. 
15.82 3.32 12.02 


-2. -.9 


6.9 

-.1 

.8 

10.6 

6.1 

.5 

6.2 

11.1 

10,2 


5.8 
-.4 

.5 

4,7 

6.2 

1.4 

6.9 
6,1 
9.3 


6.5 5,2 
-.0 -,5 
1.0 .6 
6,8 4.5 

5.6 6.0 

3.2 4.5 
7.4 6.9 

10.0 9.0 

9.3 9.1 


1,1 

-,0 -1 
.2 1 
5,9 19 
4.7 17, 
-.8 -40, 

4.3 29, 
5,0 -21, 

6.4 33. 


1.3 

-.0 - 1 , 

.2 2 . 

2.3 3, 

4.4 16, 
-1.3 -37, 

4.0 29, 

1.1 -35. 
5.9 33. 


-.28 
S P 

0, GBO 
0, MAG 
0. RAWS 
26, SIGS 
-18. RAM 

45. SIGL 
-18. RAWT 

53. SIGT 

-.31 

SP 

0. 0RO 
0, MAG 
3. RAWS 
23, STGS 
-13. RAM. 
40. SI6L 
-10. RAWT 

46, SIGT 


78.00 28.45 80.53 .152E401 .262L-04 203. 28. 

0 2.22 -4.82 7,72 


4. .163E401 .279E-04 203. 2. -28. -3.1 1.5 -.j* 

9,72 1.32 7.92 4.1 4.7 1.4 SP 

.0 -.6 -.0 -0, 0, 080 

1.2 ,7 .2 2. 0, MAG 

3.2 4.1 -.9 1. -1. RAWS 

5.2 5,9 4.6 17. 21. SIGS 

4.1 2.9 1.1 -26, -32. RAM. 

6.8 7.0 4.3 31. 39, SIGL 
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7,3 7,1 .2 -25, -33, RANT 

8,6 9,2 6,3 35, 45, SIGT 


76,00 

0 


28,45 


80,53 .212E+01 
,7Z 


.359E-04 

-3.BZ 


206, 
4. 72 


34. 2, 


•225EI01 

7,02 


, 382E-04 

2.22 


204. 

3,92 


11. -44, -3.1 


74,00 28,45 80,53 
0 


.293ET01 .490E-04 208, 
-.32 -2.22 2.02 


38. -2, 


•289E401 

-l.BZ 


, 527E-04 
5,02 


-2. -23, -1,1 


- 8.02 


72.00 

0 


28,45 


80.53 .401E+01 .659E-04 
-.92 -1.02 


212 . 

.12 


40. 


.441E401 .760E-04 199, 
8.92 14.12 -6.32 


1. 9. -1.1 


70,00 

0 


28.45 80,53 


.550E401 

-.42 


.887E-04 216. 
1.32 -1.72 


43. 


-8, ,586Ef01 .974E-04 
6.1Z 11,32 


207, 

- 6,02 


-14. -5. -1,1 


68,00 

0 


28,45 


80,53 .742ET01 
-.41 


.116E-03 222. 
1,92 -2,22 


48. 


.737EH11 .122E-03 207. 
-1.02 7.12 -8.82 


30. -29. 


1,5 


-.37 

5.7 

4.1 1.6 

SP 

.2 

-.6 -.0 

0. 0, QBO 

1,4 

,9 .3 

2, 0, HA6 

-2.4 

,5 -2.9 

2. -3. RANS 

4,8 

5,8 4,8 

17. 20, SIGS 

8,5 

6.4 2.1 - 

•25. -43. RAH 

6.2 

7.2 4,5 

33. 38. SI GL 

6,1 

6.9 -.8 - 

■23. -46. RANT 

7,8 

9,2 6.6 

37. 43. SIGT 

1.7 


-.28 

5.4 

4,3 M 

SP 

.3 

-.5 .0 

1. 0, OBO 

1,6 

1,0 ,3 

3. 0. HAG 

-7,4 

1,6 -9.0 

-6. 4. RAWS 

4,6 

5,6 4,6 

18. 18. SIGS 

5,5 

6.4 -,9 

-35. -26. RAH 

5,8 

7,2 4,5 

34, 34, SIGL 

-1.9 

8.0 -9,9 

-41. -21, RANT 

7.4 

9,1 6,4 

38. 39. SIGT 

1.7 


-.14 

5,2 

4.4 .7 

SP 

,5 

-.4 ,0 

1, 1. OBO 

1,8 

1.2 .4 

3, 1. HAG 

-1,9 

4.2 -6.0 

-8. 15. RANS 

4.6 

5,3 3,8 

19. 15, SIGS 

11.2 

11.6 -,4 

-32, -2, RAH 

5,9 

7,2 4.1 

35, 28. SIR 

9,3 15.7 -6.4 

-41. 13, RANT 

7,4 

8,9 5,6 

40, 32. SIGT 

1.7 


-.00 

5.0 

4.6 ,3 

SP 

.7 

-.3 ,1 

2. I. OBO 

2.0 

1.3 .4 

3. 1. MAG 

-.8 

1,9 -2.7 

-16. 4. RANS 

4.6 

5,1 3.0 

20. 11. SIGS 

6.6 

8.3 -1.7 

-43, -1, RAH 

5.9 

7,1 3.5 

36. 19. SIGC 

5.8 

10,1 -4.4 

-59. 3. RANT 

7.4 

B.7 4.6 

41, 22. SIGT 

-1,1 


-.39 

4.7 

4.8 -.1 

SP 

1.0 

-.1 .1 

3. 1. 0BQ 

2,2 

1.4 .4 

3, 1. HA6 

-4.7 

-.8 -3.9 

-7. 1. RANS 

4,5 

4,9 2.6 

20. 12. SIGS 

3.1 

6.0 -2.9 

-14. -25, K . H 
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5,8 7.1 3.4 34, 20. S1GL 
-1.6 5.2 -6.8 -22, -24. RAWT 
7,4 8.4 4.3 40. 23. SIGT 


44.00 28.45 80. 5J .100C+02 .152E-03 230. 54. -4. .105E+02 

0 .82 3.22 -2,32 5.82 


64.00 28.45 00,53 .133EL02 .196E-03 237. 52. -1, ,136£402 

0 1.52 4.12 -2.52 3.62 


62.00 28.45 80.53 .175E+02 .250C-03 244. 43. 3. .1B4E+02 

0 1.62 4,62 -2.82 6.42 


60.00 28.45 80,53 .230E+02 .320E-03 251. 33. 6. .229E+02 

0 2,42 4.52 -Ufl 1.82 


.161E-03 

225. 

28. 

-21. 

-2,9 

-1.1 




-.33 

9.72 

-4.62 




4,8 

4,8 

-,1 


SP 






1,2 

,1 

.1 

4. 

1. QBO 






2,4 

1,5 

.5 

4. 

1. HAG 






-4,7 

-3.4 

-1,2 

-3. 

8. RAWS 






4.4 

4.6 

2,3 

20. 

13. SIGS 






8.4 

9.6 

-1.2 

-27. 

-26. PAWL 






5.8 

7.1 

3.3 

32. 

20. SIGL 






3.7 

6,2 

-2,5 

-30. 

-18. RANT 






7,3 

8.5 

4.0 

38, 

24, SIGT 

,202£- 03 

233, 

-3. 

-21. 

4,7 

-1.8 




.01 

7,42 

-4.42 




4.8 

4.9 

-.1 


SP 






1.6 

.6 

t 2 

4. 

1. OK) 






2,6 

1.6 

.5 

4. 

1. HAG 






-2.4 

-2,1 

-.3 

-26. 

14. PAWS 






4.4 

4,5 

2,1 

19. 

14. SIGS 






2.9 

4.8 

-1.8 

-33. 

-34, RAM. 






5.8 

6.8 

3,1 

30. 

19, SJSL 






,5 

2.6 

-2,1 

-59. 

-20. RANT 






7.2 

8,1 

3,8 

35, 

24. SI6T 

.264E-03 

241. 

-5. 

-19. 

4.7 

-1.8 




.39 

10,42 

-4,22 




4.8 

4,9 

-.1 


SP 






2.1 

1.1 

,3 

4. 

1. QBO 






2,8 

1.8 

,6 

4. 

1', HAG 






-1.7 

-1,2 

-.5 

-27. 

13. RAWS 






4,3 

4,3 

2,2 

18, 

13. SIGS 






4.3 

5.5 

-1.2 

-25, 

-35. RAWL 






5.7 

6.3 

2,8 

27, 

17. SIGL 






2,4 

4.3 

-1.7 

-52. 

-22. RANT 






7,1 

7,6 

3.6 

32, 

21, SIGT 

323E-03 

244, 

-9, 

-7. 

4.7 - 

■1.8 




.74 

5.62 ■ 

■3.92 




4.8 

4.9 



SP 






2.5 

1.6 

.3 

4. 

0, QBO 






3,0 

1.9 

.6 

5. 

1, HAG 






-6,1 - 

-3.6 - 

-2.5 - 

-17, 
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,8 

4. 

8, 

SIGS 

.1 

1*5 

-1,3 

-20. 

-6* 

RAM 

.9 

1*1 

.7 

13, 

9, 

SIGL 

-.3 

2.1 

-2.4 

-16. 

-15. 

RANT 

1.1 

1.5 

1.1 

13. 

12. 

SIGT 

> 





.16 

0.0 

0.0 

0,0 



SP 

0,0 

0.0 

0.0 

0. 

0, 

QBO 

0.0 

0.0 

0,0 

0, 

0. 

KA6 

.1 

-.7 

,7 

-5. 

-4, 

PAWS 

.7 

*9 

,8 

5. 

9* 

SIGS 

1,6 

1*2 

.3 

-17. 

-0. 

RAM 

,9 

1*0 

*8 

14. 

10. 

SIGL 

1.7 

*6 

1*1 

-22. 

-4 

V»T 

1.1 

1,3 

1.1 

15. 

14. 

afGT 


8,00 28.45 80.53 .370ET05 .529E+00 244. 26. 3, .367E405 .526EE00 243. 


-9* 3.9 .2 


.46 
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0 


.« 3.3Z 


*01 3.0Z 


0.0 0.0 0.0 SP 

0.0 0.0 0.0 0. 0. OfiO 

0.0 0.0 0.0 0. 0. HAG 

-.3 -.0 -.3 -4. -2. RAMS 

.6 .8 .6 4. 8 . SIGS 

-.5 -.5 .0 -18. -10. RANI 

.8 .8 .8 12. 9. SfGL 

-.8 -.5 -.3 -22. -13. RANT 

1.0 1.1 1,1 13. 12. SIGT 


3.00 28.45 8*0.53 .4868+05 ,6548+00 259 , 20 . 3. .4798+05 . 6558+00 255. 4 , -14, 3.6 3 

0 2.92 -.92 3.82 1,52 -.72 2.32 


4.00 28.45 80.53 .3288405 .808E+00 271. 12 . 3 , , 4318+05 .8088+00 272. 15. -2. 3.5 ,3 

4 1.92 -1.42 3.32 2.32 -1.42 3.82 


0,0 

0.0 0,0 



SP 

0+0 

0.0 0,0 

0, 

0 . 

080 

0,0 

0,0 0+0 

0 , 

0 . 

HAG 

-.7 

,5 -1.3 

0 . 

-9. 

RAMS 

,5 

.7 .7 

3, 

6 , 

SIGS 

-.3 

-.4 -.2 

-13, 

-8. 

RANI 

.7 

+ 7 +7 

10. 

8, 

SI6L 

-1,3 

+1 -1,4 

-15. 

-17, 

RANT 

+ 9 

1.0 1,0 

11. 

10. 

SIGT 





,28 

0.0 

0,0 0.0 



SP 

0.0 

0.0 0.0 

0 , 

0 . 

&BO 

0,0 

0,0 0,0 

0, 

0. 

HAG 

.2 

-.3 ,6 

-1. 

-6. 

RAMS 

,5 

.3 ,7 

3, 

5. 

SIGS 

.2 

.3 -.1 

3. 

1, 

RAH 

+ 6 

+ 7 .7 

9, 

6 . 

SIGL 

.4 

-.1 .5 


-5. 

RANT 

.7 

,9 1.0 

9. 

8. 

SIGT 


2.00 28.45 80.53 .804E+05 ,9948+00 281. 4. 2, .807E+05 ,9898+00 284. 5. 2. 3.5 1 0 

0 M2 -1.12 2.22 1.52 -1,72 3.22 


0.00 28.45 80.53 .102E+O4 .123E+01 288. -1. -1. .102E+04 .124E+01 287, -4. 4. 5.4 1.4 

4 .81 .72 .12 .72 1.22 -.SI 


0,0 

0.0 

0,0 


SP 

0,0 

0.0 

0,0 

0 , 

0 , QPO 

0,0 

0,0 

0.0 

0 , 

0. HAG 

.2 

-,3 

.7 

-3. 

-3, RANS 

.4 

,8 

,8 

2 , 

4, SIGS 

.2 

-,1 

,3 

2 , 

3. RAH 

.5 

.8 

,8 

7, 

5, SIGi- 

.4 

-.7 

1.0 

- 1 , 

0. RANT 

.3 

1.1 

1 .2 

7, 

7, SIGT 





-.14 

0.0 

0.0 

0,0 


SP 

0,0 

0,0 

0,0 

0 . 

0. BBO 

0,0 

0,0 

0.0 

0 . 

0. HAG 

-.3 

-.0 

-.3 

0 . 

1. BANS 

,3 

1.4 

1.4 

1 . 

3, SIGS 

.3 

.6 

-.3 

-3. 

4, RAH 

.4 

1.4 

1.4 

5, 

4. SIGl 

-.1 

.5 

-.3 

-3. 

5. RANT 

,5 

1.9 

2,0 

5. 

5, SIGI 
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APPENDIX D - GRAM PROGRAM LISTING 


Following is a listing of the Global Reference Atmospheric Model 
(GRAM) - Mod 3. Sequence numbers containing a four character subroutine 
code and a four digit number appear on the right of the printout. 
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C FIRST BATA CARD READS INITIAL HEIGHT (KW> » INITIAL LATITUDE (DEG) GRAN 1 
C INITIAL LONGITUDE (DEG) f F10.7. NEAN F10.7r AP. MONTH. DAY » GRAN 2 

C TEAR (TOTAL YEAR - 1900) » GREENWICH HOURr MINUTES. SECONDS. GRAN 3 

C LATITUDE INCREMENT <DE6)> LONGITUDE INCREMENT (DEG) » GRAM 4 

C HEIGHT rCCREASE (KM) c MAXIMUM NUMBER OF POSITIONS (EXCLUDING GRAM 5 

C INITIAL POSITION) TO BE COMPUTED r TIME INCREMENT BETWEEN GRAM 6 

C POSITIONS. TRAJECTORY OPTION. OUTPUT OPTION.MINIMUM GEOSTROPHICGRAM 7 

C LATITUDE ORAM 8 

COMMON/ 1 OTEMP/ I0TEM1.I0TEM2.IU6. NMCOP . DD . XMJD » PHI 1 . PHI GRAM 9 

. NSAME.RP1. RD1. RT1. SP1. SD1. ST1. RU1. RV1. SU1. SV1.GRAM 10 

i MN. IDA. IYR. HI. PHI1R.THET1R.G.RI.H.PHIR.THETR.F10.F10B.AP, GRAM 11 

, IW.MIN.NMORE.DX.HL.VL.DZ.B.EPS.IOPP.LOOK.IET.GLAT. GRAM 12 

1RP1S.RD1S.RT1S.RU1S.RV1S.SP1S.SIUS.ST1S.SU1S.SV1S. GRAM 13 

2UDS1 . VD5 1 . UDL 1 . VDL 1 > UDS2 r VDS2 . UBL2 . VDL2 GRAM 14 

COMMON/CHIC/LA(4.4).N8(2).IWSYH.UCOEF( 14.9) »VCOEF( 14.9) GRAM 15 

COMMON/WINCOM/ DUMSTFd 7). UPRE.VPRE, DUPRE. DUPRE GRAM 16 

9090 FORttATCl ****** GLOBAL REFERENCE ATMOSPHERE - HOD 3 *****<*/) GRAM 17 

PI=3. 1415927 GRAM 18 

FAC=0. 01 7453293 GRAM 19 

LOOK=0 GRAM 20 

MONTH = 0 GRAM 21 

IOPT=0 GRAM 22 

H=0> GRAM 23 

5 IFdOPT.EQ.O.OR.dOPT.GT.O.AND.H.LT.O.)) GO TO 6 GRAM 24 

READ(IOPT.IO) IET.H.PHI.THET GRAM 25 

10 FORMAT ( ) GRAM 26 

GO TO 5 GRAM 27 

6 MN = MONTH GRAM 28 

NSAME = 0 GRAM 29 

READ(5.10.END=90) H1.PHI1.THET1.F1Q.F10B.AP.MN.IDA . IYR. IHRO.MINO. GRAM 30 

1 ISECO.DPHI.DTHET.DH.NMAX.INCT.IOPT.IOPP.GLAT GRAM 31 

91 REWIND 4 GRAM 32 

WRITE (6»9090) GRAM 33 

IF(ABS(PHI1).LE.90.)G0 TO 7 GRAM 34 

PHI1=SIGN( 180>-ABS(PHI1 ) »PHI1) GRAM 35 

THET1=THET1+180. GRAM 36 

IF(THETl.GT.360.)THETl=THETl-360. GRAM 37 

7 IFdHETl.LT.O.) THETl=THETl+360 GRAM 38 

SLAT = ABS(GLAT) GRAM 39 

IF (GLAT.LT. 5.) GLAT = 5. GRAM 40 

IF (GLAT. GE. 18.) GLAT = 17.999 GRAM 41 

GLATF=GLAT*FAC GRAM 42 

WRITE(6.9010) Hl.PHIl.THETl.F10.FiQBrAP.MN.IDA .IYR. IHRO.MINO. GRAM 43 

* ISECO.DPHI.BTHET.DH.NMAX.INCT.IOPT.IOPP.GLAT GRAM 44 

C SET NSAME TO AVOID SETUP GRAM 45 

15 IF (MN.EQ. MONTH) NSAME =1 GRAM 46 

C LOOKUP ON MULTIPLE PASSES GRAM 47 

MONTH = MN GRAM 48 

C CONVERT LATITUDE TO RADIANS GRAM 49 

PHI 1R=PHI 1 <FAC GRAM 50 

C CONVERT LONGITUDE TO RADIANS GRAM 51 

THET1R=THET1*FAC GRAM 52 

C CONVERT LATITUDE INCREMENT TO RADIANS GRAM 53 

DPHIR=DPHI*FAC GRAM 54 
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C CONVERT LONGITUDE INCREMENT TO RADIANS GRAM 55 

DTHETR=DTHET*FAC 6 RAM 56 

C READ DATA TAPE TO INITIALISE ARRAYS GRAM 57 

“LL SETUP GRAM 58 

NT = 1 GRAM 59 

IF(IOPT.EQ.O) GO TO IB GRAM 60 

READ(IOPTfIO) IETrH* PHI* THET GRAM 61 

IF(ABS(PHI),LE.90.) GO TO 16 GRAM 62 

PHI = SIGN(180.-ABS(PHI)fPHI) GRAM 63 

THET = THET + 180. GRAM 64 

16 IF< THET . L T . 0 . ) THET=THET+360 . GRAM 65 

IF 4 THET . GT* 360 • ) THET = THET - 360. GRAM 66 

PHIR=PHIIFAC GRAM 67 

THETR=THET*FAC GRAM 68 

60 T0 19 GRAM 69 

18 H = HI - DH GRAM 70 

c DISPLACES POSITION BEFORE EVALUATION OF ATMOSPHERIC PARAMETERS GRAM 71 

!ET = INCT GRAM 72 

PHIR=PHI1R+DPHIR GRAM 73 

THETR=THET 1 R+DTHETR GRAM 74 

IF <ABS(PHIR).LE,PI/ 2 .) GO TO 17 GRAM 75 

PHIR = SIGN(PI-ABS(PHIR) >PHIR) GRAM 76 

THETR = THETR + PI GRAM 77 

17 IF (THETR.6T.2.IPI) THETR = THETR - 2.IPI GRAM 78 

IF ( THETR. LT.O.) THETR = THETR + 2,*P I GRAM 79 

C A=FOUATORIAL EARTH RADIUS* B = POLAR EARTH RADIUS GRAM 80 

C EPS= EARTH ECCENTRICITY GRAM 81 

19 A = 6378 » 160 oj 

» = «56.7747 GRAM 83 

EPS=(1.-(BJB)/(AIA)) 

c COMPUTES RADIUS TO HEIGHT H* AND GRAVITY AT HEIGHT AND GRAM 85 

C LATITUDEPHIR GRAM 86 

CALL RIG GRAM S7 

ISEC=ISECO+IET GRAM 88 

ISEC=M0D(ISECi60) GRAM 89 

MIN = MINO + IET/60 GRAM 90 

IHR = IHRO + MIN / 60 GRAM 91 

MIN = MOD(MIH>60) GRAM 92 

c COMPUTES PfD,T,U.V AT FIRST POSITION AFTER INITILL POSITION GRAM 93 

IF1H1.LE.30.) L00K=1 GRAM 94 

IF(ABS(PH1R) .GT.GLATF) GO TO 195 GRAM 95 

PHIS=PHIR GRAM 96 

DPHIS=(PHIR+GLATF )/( 2 . IGLATF ) GRAM 97 

PHIR=GLATF GRAM 98 

CALL SCIMOD(O) 99 

UP2--UPRE GRAM 100 

VP2=VPRE CRAM 1 rtl 

DUP2=DUPRE GRAM 102 

DVP2--DVPRE GRAM 103 

PHIR--GLATF GRAM 104 

CALL SCIMOD(O) GRAM 105 

UP^UPRE GRAM 106 

VP1--VPRE GRAM 107 

DUP1--DUPRE GRAM 108 
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DVP1=DVPRE GRAM 109 

UPRE=UP1+(UP2-UP1)*DPHIS GRAM 110 

VPRE =VPl+( VP2-VP1 ) IDPHI S GRAM 111 

DUPRE=DUP1+(DUP2-DUP1)IDPHIS GRAM 112 

BVPRE=DUP1+(DVP2'DVP1)*DPHIS GRAM 113 

PHIR=PHIS GRAM 114 

195 CALL SCIMOD(l) GRAM 115 

20 NT = NT + 1 GRAM 116 

IF (IOPT.Efl.0) GO TO 22 GRAM 117 

READ(IOPTflO) IET)HfPHI»THET GRAM 118 

IF<H.LT.0.)60 TO 5 GRAM 119 

IF(ABS(PHI).LE.90.)G0 TO 21 GRAM 120 

PHI=SIGN(1B0.-ABS(PHI)>PHI) GRAM 121 

THET=THET+180* GRAM 122 

21 IF(THET.LT,0.)THET=THET+360. GRAM 123 

IF( THET .GT i 360. ) THET=TH£T-360 . GRAM 124 

PHIR=PHItFAC GRAM 125 

THETR=THET*FAC GRAM 126 

60 TO 25 GRAM 127 

C INCREMENT THE HEI6HT GRAM 128 

22 H = HI - OH GRAM 129 

IF <H .LT. 0.0) GO TO 5 GRAM 130 

C INCREMENT THE LATITUDE GRAM 131 

PHIR=PHIR+HPHIR GRAM 132 

C INCREMENT THE LONGITUDE GRAM 133 

THETR=THETRTDTHETR GRAM 134 

C READS NEW INPUT IF ADS(LAT) GTR 90 DEG GRAM 135 

IF <ABS(PHIR).LE.PI/2) GO TO 23 GRAM 136 

PHIR=SIGN(PI-ABS(PHIR)»PHIR) GRAM 137 

THETR=THETR+PI GRAM 138 

23 IF (THETR.GT.2.4PI) THETR = THETR - 2. t PI GRAM 139 

IF ( THETR.LT. 0.) THETR = THETR + 2. * PI GRAM 140 

C INCREMENT THE TIME GRAM 141 

IET=IET+INCT GRAM 142 

25 MIN=MIN0+IET/60 GRAM 143 

IS£C=ISECO+IET GRAM 144 

ISEC=M0D(ISEC»60) GRAM 145 

IHR-IHR0TMIN/60 GRAM 146 

MIN=MOD(MINf60) GRAM 147 

C COMPUTE RADIUS AND GRAVITY AT NEW POSITION GRAM 148 

CALL RIG GRAM 149 

C COMPUTE P»D»TfU»V» AT NEW POSITION GRAM 150 

IF(ABS(PHIR).GT.GLATF) GO TO 80 GRAM 151 

PHIS=PHIR GRAM 152 

DPHIS=(PHIRTGLATF)/(2.*GLATF) GRAM 153 

PHIR=GLATF GRAM 154 

CALL SCIMOD(O) GRAM 155 

UP2=UPRE GRAM 156 

VP2=VPRE GRAM 157 

DUP2=DUPRE GRAM 158 

DVP2=DW , RE GRAM 159 

PHIR=-GLATF GRAM 160 

CALL SCINOD(O) GRAM 161 

UP1=UPRE GRAM 162 
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Wl^PRE GRAM 163 

DUP1=DUPRE GRAM 164 

1WP1=1WPRE GRAM 165 

UPR£=UPlHUP2-UPl)tDPHIS GRAM 166 

VPRE=VP1+(VP2-VP1)*DPHIS GRAM 167 

DUPRE=DUP1+(DUP2-DUP1)*DPHIS GRAM 168 

DVPRE=DVP1T(DVP2-0VP1 ) 4DPHIS GRAM 16? 

PHIR=PHIS GRAM 170 

80 CALL SCIHOD(l) GRAM 171 

GRAM 172 

C READS M EH INPUT IF NMORE = 0 OR MAX POINTS COMPUTED GRAM 173 

IF(NMORE,E0.O.OR.(IOPT.EQ,O,AND.NT.GE.NMAX)) GO TO 5 GRAM 174 

C CYCLE TO NEW POSITION GRAM 175 

GO TO 20 GRAM 176 

y 0 STOP GRAM 177 

9010 FORMAT (' INITIAL HEIGHT = , ,F7 > 2f 1 KM" .T43. ’INITIAL LAT = *, GRAM 178 

1F6.2» ' DEG'. T83. 'INITIAL WEST LON = '.F6,2.' DEG*./.' F10.7 = '.FGRAM 179 
♦0.2. GRAM 180 

2T43.'MEAN FI 0.7 = *.F7,2>T83»'AP = '.F8.2./.' DATE = M2.7M2.GRAH 181 
3V. 12. T43. 'GREENWICH TIME = ^ tl2> ^ l , ^l2t ^ i , tl2/t ^ LAT INCREMENT GRAM 182 
4= *.F 6 . 2 >' DEG' .T43. 'WEST LON INCREMENT = '.F6.2.* DE6'.T83.'HEI'.GRAM 183 
♦'GOT INCR'. GRAM 184 

5'EMENT = '.F7.2.' KM'./.' MAXIMUM HUNGER OF POSITIONS = ■.I4.T43.GRAM 185 
6 *TIME INCREMENT = ',14.' SEC'. /2X.' TRAJECTORY OPTION = M 4 » GRAM 186 
7T43. 'OUTPUT OPTION = '»I2.T83.'HIN GEOSTROPH LAT = 'iF5.li/) GRAM 187 
END GRAM 188 

SUBROUTINE ADJUST ADJU i 

C0MH0N/C4/DUN1(32).NG»P( 16. 26) tD 116.26) »T( 16.26) »SP(16»26) ADJU 2 
♦.SD(16.26)»5T(16.26),DU1.DU2»HS ADJU 3 

C0MM0N/AIUC0M/A(26.3). D(26). X(26). MOUNT ADJU 4 

DIMENSION P0<26). 00(26). UC<26>. VC<26)» WC(26). U(26). V<26), ADJU 5 
♦ «<26) ADJU 6 

C ASSUMPTIONS^ ADJU 7 

C HS IS THE SURFACE LEVEL ADJU 8 

C ALL DATA VALUES ABOVE SURFACE LEVEL ARE IN 1 KM INCREMENTS ADJU 9 

El=0»075 ADJU 10 

E2=0 * 150 ADJU 11 

NAXIT=3 ADJU 12 

KSMAX=10 ADJU 13 

HSJ = HS ADJU 14 

IF (HS.LT.O.) HSJ = 0. ADJU 15 

JJ=INT(HSJ+ 2 .) ADJU 16 

STEST=0.05 ADJU 17 

ISS=1 ADJU 18 

CONST=28703. 7980.665 ADJU 19 

^=26 ADJU 20 

ITER=0 ADJU 21 

UC(1)=SQRT(SP(K0UNT,1)) ADJU 22 

VC(l)=S0RT(SD(KOUNT.l)) ADJU 23 

WC(l)=SORT(ST(KOUNT.l)) ADJU 24 

DO 5 I=JJ.N ADJU 25 

UC(I)=SORT(SP(KOUNT.I)) ADJU 26 

VC(I)=SORT(SD(KOUNT.I)) ADJU 27 

5 WC(I)=SORT(ST(KOUNT.I)) ADJU 28 
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NH=N-1 ADJU 29 

NP=N+1 ADJU 30 

C,,...S£TS UP QUADRATURE FACTORS ADJU 31 

Pfl( 1 ) =500 .MFLQAT ( INT IHSJ41 . ) ) -HS)/( COKSTtT ( KOUNT » 1 ) ) ADJU 32 

00(1) =500 . I ( FLOAT ( INT ( HS J+ 1 . ) ) -HS ) / ( CONST IT (KOUNT r JJ> ) ADJU 33 

DO 15 I=JJ» NW ADJU 34 

IP=H1 ADJU 35 

P0< I ) =500 . / ( CONST*! (KOUNT j 1 ) ) ADJU 36 

15 90<I)=500,/(C0NSW<K0UNMP)) ADJU 37 

GO TO 58 ADJU 38 

12 NN=N-1 ADJU 39 

NP=N+1 «JU 40 

DO 14 1=1 »26 ADJU 41 

U(I)=UC(I)*UC(I) ADJU 42 

V(I)=VC(I)*VC(I) ADJU 43 

U(I)=UC(I)tMC(I) ADJU 44 

14 CONTINUE ADJU 45 

C INITIALIZE A(IrJ) ADJU 46 

DO 20 1=1 t 26 ADJU 47 

DO 20 J=li3 ADJU 48 

20 A(IpJ)=0. ADJU 49 

C SETS UP COEFFICIENTS ADJU 50 

I2 =o ADJU 51 

DO 35 1=1 »NN ADJU 52 

IF(I.GT.l.AND.I.LT.JJ) GO TO 35 ADJU 53 

AW=l./SP(KOUNTf I) ADJU 54 

BU=l./SD(KOUNTfI) ADJU 55 

CW=1./ST(K0UNM) ADJU 56 

ADJU 57 

IF(I.EQJJ) IN=1 ADJU 58 

IP=I+1 ADJU 59 

IF (I.EQ.l) IP=JJ ADJU 60 

12=12+1 ADJU 61 

A«1=1,/SP<K0UNT»IP) ADJU 62 

BN1=1./SD(K0UNMP) ADJU 63 

CW1=1./ST(K0UNT»IP) ADJU 64 

IF(I.EO.l) GO TO 25 ADJU 65 

A(I2pl)=-(l.-00(IH))«(l.+P0(I))/AH+(l./BW+l./CH)»P0(I)*Qfl(IH) ADJU 66 

25 A(I2f2)=((l.-Ofl(I))tt2)/AWl+((l.+PO(I))l*2)/AU+(li/DN+l./CW) ADJU 67 

♦ *<PQ(I)tt2)+(l./BWl+l./CMl>IQQ<I)tt2 ADJU 68 

IF(I.EQ.NN) GO TO 30 ADJU 69 

A(I2»3)=-(l.-Q0(I))*(l.+P0(IP))/Ayi+(l./Byi+l./CW)* ADJU 70 

* PO(IP)*QO(IP) ADJU 71 

30 B(I2)=U(IP)-U(I)-(U(I)-V(I)+H(I))tPQ(I)-(U(IP)-V(IP)+4l(IP))MQ(I) ADJU 72 

35 CONTINUE ADJU 73 

CALL DIAGEQ(I2) ADJU 74 

C FINDS CORRECTIONS ADJU 75 

A«=1,/SP(K0UNT»1> ADJU 76 

HM,/SD(KOUNTrl) ADJU 77 

C«=l./ST(KOUNT.l) ADJU 78 

UC(1)=SQRT(U(1)+X(l)t(l*+PQ(1))/AN) ADJU 79 

VC(1)=SQRT(V(1)-X(1)*PQ(1)/BM) ADJU 80 

MC(1)=SQRT(H(1)+X(1)*P0(1)/CH) ADJU 81 

AW=1./SP(KOONT»N) ADJU 82 
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c 

c 


BW=i»/5D(K0UNT>N) 

CH=l./ST(KOUNTrN) 

UC(N)=SBRT(U<H)-X(I2)t(l,-Q0(W1))/A«) 

VC<M)=SQRT(V(W)-X(I2XQQ(MM)/BW) 

UC(N)=S0RT(U(N)+X(I2)tQ8(NH)/CU> 

12=1 
BO 40 
12 = 12+1 
I2H=I2-1 

A«=l./SP<KOUNM) 

BU=l,/SD<KOUNT.I) 

CN=l«/ST(KOUNTiI) 

IK=I-1 

IF(I*EO. JJ>Irt=l 
UC(I)=ABS(U(I) 

UC<I)=SORT(UC(I)) 

VC<I)=ABS<V(I) 

VCCI)=SORT(VC(I)> 

MC(I)=ABS(«(I) 

40 WC(I)=SQRT(UC(I)> 

GETS ADJUSTED VALUES 

ADJUSTS ON TRIANGLE INEQUALITIES 

58 K=0 

DO 68 1=1 ,N 

IF<I.GT»1.AND.I,LT.JJ) GO TO 6B 
AU=UC(I) 

AV=VC(I) 

AN=UC(I) 

ANAX=AHAX1 (AUf AMrAH) 

EE=E1IAHAX 
EF=E2*AHAX 
AW=SP<KOUNM) 

By=SD< KOUNT » I ) 

CN=ST(KOUNT»I) 

COR=AU+AV-AH-EE 
DIV=AH+BW+CM 
IF(COR.GT.O, ) GO TO 60 
COR=(AU+AV-AH-EF)/DIV 
AU=AU-CORIAW 
AV=AV-CORIBW 
AH=AH+CORICW 
GO TO 64 

60 COR=AU-AV+AH-EE 
IF(C0R<GT»0») GO TO 62 
COR=(AU-AV+AH-EF)/DIV 
AU=AU-CORtAN 
AV=AV+COR*BH 
AH=AH-CORICH 
GO TO 64 

62 COR=-AU+AV+Att-££ 

IF(COR.GT.O.) 60 TO 66 
COR= ( -AU+AV+AH-EF ) /DI V 
AU=AU+COR*AH 
AV=AV-CORIBN 


+(-X(I2H)t(l.-0Q(IH))+X(I2)t(l»+P0(I)))/AH) 

-<X<I2H)«0(IH)+X(I2XP0(I))/BU) 

+<X(I2H)IB0(IH)+X(I2)$PQ(I))/CN) 


03 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 
ADJU 100 
ADJU 101 
ADJU 102 
ADJU 103 
ADJU 104 
ADJU 105 
ADJU 106 
ADJU 107 
ADJU 108 
ADJU 109 
ADJU 110 
ADJU 111 
ADJU 112 
ADJU 113 
ADJU 114 
ADJU 115 
ADJU 116 
ADJU 117 
ADJU 118 
ADJU 119 
ADJU 120 
ADJU 121 
ADJU 122 
ADJU 123 
ADJU 124 
ADJU 125 
ADJU 126 
ADJU 127 
ADJU 128 
ADJU 129 
ADJU 130 
ADJU 131 
ADJU 132 
ADJU 133 
ADJU 134 
ADJU 135 
ADJU 136 
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AN=AH-COR>CN 

ADJU 137 

64 K=K+1 

ADJU 138 

66 uc<d=au 

ADJU 139 

VCU)=AV 

ADJU 140 

WC(I)=AH 

ADJU 141 

68 CONTINUE 

ADJU 142 

K«AX=K 

ADJU 143 

100 IF<<ITERiEQiO).OR. ( KHAX * ME ♦ 0 ) ) GO TO 110 

ADJU 144 

GO TO 112 

ADJU 145 

110 ITER=ITER+1 

ADJU 146 

IF(ITER.LE.NAXIT) GO TO 12 

ADJU 147 

112 IF (ISS.NE.l) GO TO 9?? 

ADJU 148 

114 ITER=1 

ADJU 149 

ISS=2 

ADJU 150 

VTA=MC< 1 ) 

ADJU 151 

HTA=UC(1) 

ADJU 152 

DO 120 I=JJfNM 

ADJU 153 

IH=I-1 

ADJU 154 

IF(I.E0.JJ)IH=1 

ADJU 155 

VTB=VC(I> 

ADJU 156 

MTB=«C(I) 

ADJU 157 

VC(I)=<VC(I+1)F2.MB+VTA>*0,25 

ADJU 158 

ttC< I )= (WC< 1+1 )+2.*WTB+WTA)*0.25 

ADJU 159 

VTA=VTB 

ADJU 160 

WTA=HTB 

ADJU 161 

120 CONTINUE 

ADJU 162 

GO TO 12 

ADJU 163 

CALCULATE THE CORRECTED VARIANCES 

ADJU 164 

999 DO 1010 1=1 >N 

ADJU 165 

IFU.GT.l.AND.I.LT »JJ) GO TO 1010 

ADJU 166 

SP<K0UNTfI)=UC(I)«2 

ADJU 167 

SD(K0UNTfI)=VC(I)«2 

ADJU 168 

ST(K0UNT,I)=HC(I)»2 

ADJU 169 

1010 CONTINUE 

ADJU 170 

RETURN 

ADJU 171 

END 

ADJU 172 

SUBROUTINE CHECK 

CHEC 1 

C0NN0N/CHK/P(4f4»3)»RH0(4»4»3)fN0(2) 

CHEC 2 

CONNON/HINCON/DGH , FCORY » DX5 > DY5 

CHEC 3 

CONNON/CHIC/LA ( 16 ) iNB(2) i IUSYMiUCOEF ( 14»9) > VCOEFI 14»9) 

CHEC 4 

NB(1) = 0 

CHEC 5 

NB(2) = 0 

CHEC 6 

CALL GROUP 

CHEC 7 

NS=0 

CHEC 8 

NR=1 

CHEC 9 

1F(NO(1).EOiOiAND.NO(2).EO»0) GO TO 1000 

CHEC 10 

DO 640 KL=1 f 2 

CHEC 11 

IF (Nfl(KL).EO.O) GO TO 640 

CHEC 12 

450 CONTINUE 

CHEC 13 

NNfi=4*NR 

CHEC 14 

IF(NO(KL).LE.NNR) GO TO 500 

CHEC 15 

NR=NR+1 

CHEC 16 

GO TO 450 

CHEC 17 

500 CONTINUE 

CHEC 18 


D-8 



CHEC 1? 

J1=N0(KL)-(NR-1)*4 CHEC 20 

SHI = 6. CHEC 21 

SH2 = 6, CHEC 22 

DP = P(I1>J1>2) - P(I1>J1>1) CHEC 23 

IF (DP) 510»520»510 CHEC 24 

510 SHI = ABS(P(I1>J1>2)/DP) CHEC 25 

520 DP = P(I1>J1>2) - P(I1»J1»3) CHEC 26 

IF (DP) 530 >540 >530 CHEC 27 

530 SH2 = ABS(P(I1>J1>2)/BP) CHEC 28 

540 IF(SH1.LT.4,0.0R,SH2,LT,4,0) GO TO 640 CHEC 29 

IF(SH1.GT.9.0.0R.SH2.6T,9,0) 60 TO 640 CHEC 30 

HR=I CHEC 31 

NS=HS+1 CHEC 32 

640 CONTINUE CHEC 33 

RETURN CHEC 34 

1000 IMSYH = CHEC 35 

RETURN CHEC 36 

END CHEC 37 

SUBROUTINE C0RLAT(A>B>C>D>E>F>6>H>AI>AJ>AK>SP1>SP2>SD1>SD2>ST1> CORL 1 

1 ST2>SU1>SU2>SV1>SV2>UD1>UD2>VD1>VD2>RD>RT>RV) CORL 2 

IF(SD1 IST1 ISD24ST2 . GT , 0 , ) GO TO 5 CORL 3 

C DEFAULT VALUES AVOID DIVISION BY ZERO CORL 4 

IF(SD1.LE.0») SD1=0, 001 CORL 5 

IF(ST1,LE,0,) ST1 =0,001 CORL 6 

IF(SD2.LE.O. ) SD2=0,001 CORL 7 

IF(ST2.LE.O. ) ST2=0,001 CORL 8 

IF(RD,LE.O.) RD = .00001 CORL 9 

IF(RT.LE.O.) RT = .00001 CORL 10 

IF(RV.LE.O.) RV = ,00001 CORL 11 

5 CONTINUE CORL 12 

IF(A8S(TD1).LE,0.) TD1 = 0,001 CORL 13 

IF (ABS(UDl).LE.O,) UD1 = 0.001 CORL 14 

IF (ABS(VDl).LE.O.) VD1 = 0,001 CORL 15 

IF (ABS(SUl).LE.O.) SU1 = 0,001 CORL 16 

IF (ABS(SVl).LE.O.) SV1 = 0,001 CORL 17 

IF (ABS(UDl).GE.l.) UD1 = 0,99*UD1/ABS(UB1) CORL 18 

IF (ABS(VDl).GE.l,) VD1 = 0.99*VD1/ABS(VD1) CORL 19 

A=RD*SD2/SD1 CORL 20 

B=SD2*SQRT(1-RD*RD) CORL 21 

TD2= ( SP2ISP2-SD2ISD2-ST24ST2 ) / ( 2>SD2tST2 ) CORL 22 

TD1=(SP1ISP1-SD1*SD1-ST1»ST1)/(2«SD1*ST1) CORL 23 

IF(A8S(TD2).G£.1»0) TD2=0,99ITD2/ABS(TD2) CORL 24 

IF(ABS(TD1),GE.1,0) TD1=0,99ITD1/ABS(TD1) CORL 25 

C= < ST2/ST1 ) I ( RT-RDITD2ITD1 ) / ( 1-TD1 ITD1 IRDtRD ) CORL 26 

D= (RT*ST2>STl-CtSTllST 1 ) /( AITD1 tSDl tST 1 ) CORL 27 

E= ST2*ST2-CtCtSTltSTl-DID*SD2*SD2-2*C*D*RD*TDl*STl*SD2 CORL 28 

IF(E.6E,0, ) GO TO 10 CORL 29 

E=0, CORL 30 

10 E=SQRT(E) CORL 31 

F= ( SU2/SU1 ) I ( RV-RDIUD2<UD1 ) / ( 1 -RDIRDtUD 1 <UD1 ) CORL 32 

G=<mSU2-F$SUl)/{RDMltSD2) CORL 33 

H= SU2tSU2-F<F ISU1 ISU1 -Gt6ISD2tSD2-2tFtGtRDIUDl BSD2ISU1 CORL 34 

IF(H.6£,0,) GO TO 15 CORL 35 
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H=0. CORL & 

15 H=SGRT(H) 37 

AI=<SV2/SVl)*(RV-RD*VD2*VDl)/(l-RD*RDtVDllVDl) CORL 38 

A J= ( RVISV2- AI 4SV1 ) / ( RD4VD1 ISD2 ) CORL 3? 

AK= SV2*SV2-AIJAItSVltSVl-AJtAJ<SD24SD2-2tAI4AJtRDIMDl>SD2tSVlC0RL <0 

IF(AK.GE.Q.) GO TO 25 CORL 41 

AK=0. CORL 42 

25 ASSORT (AK) CORL 43 

RETURN CORL 44 

END CORL 45 

SUBROUTINE DIAGEO! N) DIAG 1 

C A(I<J)=0IAG. TERNS? MOW NO.? J=DIAG. NO. DIAG 2 

C B( I )=RIBHT SIDE TERNS DIAG 3 

C N=NO. Of ROWS DIAG 4 

C K=NO . Of BORDER DIAGONALS? H=K+MNDES Of PRIN. DIAG DIAG 5 

C 2KH C T0TAL NO. OF DIAGS. DIAG 6 

C X(I) r SOLUTION DIAG 7 

CONrtON/ADJCON/A (26? 3) ? B(26)? X(26) DIAG 8 

K = l DIAG 9 

#*+l DIAG 10 

DO 30 L=1?N DIAG 11 

ALN=A(L?N) DIAG 12 

A<L?HM. DIAG 13 

IF(L.EQ.N) GO TO 15 DIAG 14 

I2=rtIN0<X?N-L> DIAG 15 

DO 10 Mr 12 DIAG 16 

NP1=H+I DIAG 17 

10 A(L?HPI) r A<L?HPI)/ALH DIAG 18 

15 B(L)=B(L)/ALN DIAG 19 

IF(L.EQ.N) GO TO 30 DIAG 20 

DO 25 1=1 « 12 DIAG 21 

LPI=L+I DIAG 22 

FACT=A(LPIrN-I) DIAG 23 

DO 20 J=1?I2 DIAG 24 

NJI=MJ'I DIAG 25 

20 A(LPI?NJI)=A(LPI?NJI)-A(L?N4J)*FACT DIAG 26 

25 B(LPI)=BILPI)-8(L)tFACT DIAG 27 

30 CONTINUE DIAG 28 

X(N)=B<N) DIAG 29 

NN1=N-1 DIAG 30 

DO 50 L=1 ? WM1 DIAG 31 

NHL-N-L DIAG 32 

SUN=0. DIAG 33 

I2=NIN0(K?L) DIAG 34 

DO 40 Mr 12 DIAG 35 

40 SUH=SUH+A(NHL?MFI)<X(NHL+I) DIAG 36 

50 X(NHL)-B(NML)-SUN DIAG 37 

RETURN DIAG 38 

END DIAG 39 

SUBROUTINE FAIR <P6? D6? TG? PJ? DJ? TJ? IH? P? D? T? FAIR 1 

♦ DPYG? DPXJ? DPYJ? DPX? DPT? DTYG? DTXJ? DTYJ? DTX? DTY) FAIR 2 

C FAIRS BETWEEN GROVES AND JACCHIA VALUES 90 LE HEIGHT LE 115 KN FAIR 3 

BIHENSION CZ(6) FAIR 4 

C FAIRING VALUES FAIR 5 
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DATA CZ /l. 0.0 .9045085. 0.6545085.0. 3454915. 0.0954915. 0.0/ 

FAIR 

6 

c 

HEIGHT INDEX 

FAIR 

7 


I =(IH - 85 )/5 

FAIR 

8 

c 

GROVES FAIRING COEFFICIENT 

FAIR 

9 


CZI = CZ(I) 

FAIR 

10 

c 

JACCHIA FAIRING COEFFICIENT 

FAIR 

11 


SZI * 1.0 - CZI 

FAIR 

12 

c 

FAIRED TEMPERATURE 

FAIR 

13 


T = TG4CZI t TJtSZI 

FAIR 

14 

c 

FAIRED PRESSURE 

FAIR 

15 


P = EXP(AL06(PG)»CZI + ALOGXPJ ) *SZI) 

FAIR 

16 

c 

FAIRED DENSITY 

FAIR 

17 


D = EXP(ALOG(DG)*CZI + ALOG(DJ)*SZI) 

FAIR 

18 


DPX = DPXJ 

FAIR 

19 

c 

DP/DY FOR 6E0STR0PHIC MINDS 

FAIR 

20 


DPY=DPYG*CZI+DPYJ*SZI 

FAIR 

21 


DTX = DTXJ 

FAIR 

22 

c 

DT/DY FOR THERMAL MINDS 

FAIR 

23 


DTY = DTYG * CZI + DTYJ * SZI 

FAIR 

24 


RETURN 

FAIR 

25 


END 

FAIR 

26 


SUBROUTINE GEN4D 

GEN4 

1 

Cm 

...GENERATES NG =_9 OR 16 4D PROFILES P.D.T AND SIGMAS SP.SD.ST AT 

6EN4 

2 

c 

GRID OF LATITUDES AND L0N6J TUBES GLAT.GLON. CURRENT LATITUDE. 

GEN4 

3 

c 

LONGITUDE=CLAT .CLON. PREVIOUS LATITUDE. LONG ITUDE=PLAT , PLON . 

GEN4 

4 


C0HN0N/C4/GLAT(16),GL0N(16),NG,P(16.26),D(16.26),T(16.26>. 

GEN4 

5 


♦ SP(16.26).SD(16.26).ST<16.26).PL0N.CL0N.HS 

GEN4 

6 


C0MM0N/I0TEMP/I0TEN1.I0TEM2.IUG.NHC0P.DDD.XMJD.PLAT.CLAT. 

GEN4 

7 


i NSAME , RP1 , RD1 , RT1 , SP1 .SD1 . ST1 , RU1 .RV1 » SU1 > SV1 . 

GEN4 

8 


* MN.IDA.IYR.HI.PHIIR.THETIR.GZ.RI.Z.PHIR.THETR.FIO.FIOB.AP. 

GEN4 

9 


* I HR, MIN.NHORE.DX. HL.VL.DZ.fi, EPS, I0PP»LOOK,DUMNY(2O) 

GEN4 

10 


C0MM0N/PDTC0N/IU4»M0NTH.I0PR>PG(18.19).TG(18.19)»DG(18.19)» 

GEN4 

11 


1 PSP(8.10.12).DSP(8.10.12).TSP(8.10»12) 

GEN4 

12 


2,PAQ(17,5),DAQ(17,5),TAQ(17,5), 

GEN4 

13 


3PD0(17,5),DDQ(17,5).TDQ(17,5),PR(20,10),DR(20»10),TR(20»10), 

GEN4 

14 


4UAQ(17,5),VAQ(17»5),UDQ(17,5),VDQ(17.5),UR(25,10),VR<25»10), 

GEN4 

15 


5PQ.D0.TQ.U0.V0.P0A.D0A.T0A.UA.VA.I0PQ 

GEN4 

16 


* »PLP(25,10),DLP<25,10),TLP<25,10),ULP(25»10)»VLP<25,10)»UBL(25, 

GEN4 

17 


* 10).VDL(25.10).UDS(25il0).VDS(25»10) 

GEN4 

18 


CONNON/AD JCOM/DUM (130), FOUNT 

GEN4 

19 


COMMON/IPRTP/ IPRT 

GEN4 

20 


IF(NSAME.EQ.l) RETURN 

GEN4 

21 


IPRT=0 

GEN4 

22 


L00K=0 

GEN4 

23 


F = 0.017453293 

GEN4 

24 


NG = 16 

GEN4 

25 


DX = PLON - CLON 

GEN4 

26 

c LONGITUDE DISPLACEMENT FROM PREVIOUS TO CURRENT POSITION 

GEN4 

27 


DY = CLAT - PLAT 

GEN4 

28 

Cut 

..LATITUDE DISPLACEMENT FROM PREVIOUS TO CURRENT POSITION 

GEN4 

29 


IF (DY) 20.10.20 

GEN4 

30 

10 

IF (DX) 15,12.15 

GEN 4 

31 

12 

K = 0 

GEN4 

32 


GO TO 40 

GEN4 

33 
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15 THETA = 180. + SIGN(90.,DX) GEN4 34 

GO TO 30 GEH4 35 

20 THETA = ATAN(DX/DY)/F GEM 36 

IF (DY.GT.O.) TECTA = THETA + 180. KM 37 

IF (THETA.LT. 0.) THETA = THETA + 360. GEM 38 

C THETA = AZIMUTH ANGLE OF TRAJECTORY, USED TO ORIENT LAT-LON GRID GEM 39 

30 K = INK (THETA + 67,5)/45.) 6EN4 40 

C INDEX USED IN COMPUTED GO TO FOR 110 THRU 180 GEM 41 

IF IK.GT.B) K=K-8 GEN4 42 

C NORTH POLAR GRID GEN4 43 

IF <CLAT.GT,75.0.AND.K,GE.3.AND.K.LE.7)GO TO 200 GEN4 44 

C SOUTH POLAR GRID GEN4 45 

IF (CLAT.LT, -75.0. AND, <K,GE.7,OR.K.LE.3))GO TO 200 GEM 46 

C INITIAL ESTIMATE OF REFERNCE LATITUDE (LONER LEFT GRID POINT) GEM 47 

40 LATO = 5IINKCLAT/5.) GEM 48 

IF (CLAT.LT.O.) LATO = LATO - 5 GEM 49 

C INITIAL ESTIMATE OF REFERENCE LONGITUDE (LONER LEFT GRID POINT) GEM 50 

L0N0=5tINT(CL0N/5.) GEN4 51 

C ADJUSTS LATO, LONO ACCORDING TO DIRECTION OF TRAJECTORY AZIMUTH GEM 52 

IF (K.GT.O) GO TO 100 GEM 53 

LATO = LATO - 5 GEM 54 

LONO= LONO + 10 GEM 55 

GO TO 190 GEM 56 

100 GO TO (110, 120, 130, 140,150, 160, 170, 180), K GEN4 57 

110 LATO = LAT0-10 GEN4 58 

LONO = LONO + 10 GEN4 59 

GO TO 190 GEN4 60 

120 LATO = LAT0-10 GEN4 61 

LONO = L0N0+15 GEN4 62 

GO TO 190 GEM 63 

130 LATO = LATO-5 GEM 64 

LONO = L0N0+15 GEM 65 

GO TO 190 GEN4 66 

140 LONO = L0N0+15 GEN4 67 

GO TO 190 GEN4 68 

150 LONO s LONO+IO GEM 69 

GO TO 190 GEN4 70 

160 LONO = LONO+5 GEM 71 

GO TO 190 GEM 72 

170 LATO = LATO-5 GEM 73 

LONO = LONO+5 GEM 74 

GO TO 190 GEN4 75 

180 LATO = LAT0-10 GEM 76 

LONO = LONO+5 GEM 77 

190 IF (LONO, GT. 360) LONO = LONO - 360 GEM 78 

[0=1.25 GEM 79 

IF(ABS(CLAT) .GE.18) GO TO 192 GEN4 80 

DLI=3.0 GEM 81 

LAT0=-1B GEN4 82 

192 DO 195 1=1,4 GEN4 83 

112 = 1+12 GEM 84 

DO 195 J=I,I12,4 GEM 85 

GLAT(J) = LATO + 1.2510-1) GEM 86 

C LATITUDE, LONGITUDE GRID AT 5 DEGREE INTERVALS GEM 87 
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195 GLON(J) = LONO - 5, * (I - 1) GEN4 88 

GO TO 400 GEM g 9 

C POLAR GRID GEM 90 

200 MS = 9 GEN4 91 

DO 210 J=lf 8 GEM 92 

C POLAR GRID LATITUDES 1-8 = +75 (N) OR -75 (N) 6 EN 4 93 

SLAT ( J) = SIGN(75.»CLAT) GEN4 94 

C POLAR GRID LONGITUDES 1-8 AT 45 DEG INTERVALS GEM 95 

210 GLON(J) = 45.KJ-1) GEN4 96 

C POLAR GRID LATITUDE 9 = POLE +93 OR -90 GEM 97 

GLAT (?) = SIGN(90.»CLAT) GEM 98 

C POLAR GRID LONGITUDE 9 = 0 GEN4 99 

GL0N(9) = 0. GEM 100 

C GENERATES 16 PROFILES (OR 9 PROFILES FOR POLAR GRID) GEM 101 

400 CALL GRID4D GEN4 102 

DO 600 1=1 >NG GEN4 103 

CH£CK=P(I,26)*D(Ir26)*T(I,26)*SP<I,26)*SD<I»26)«ST<If26) GEN4 104 

C CHECK FOR ZERO DATA AT HEIGHT 25 GEN4 105 

IHV=26 GEN4 106 

SPR=SP(I>26) GEN4 107 

SDR=SD(If26) GEN 4 108 

STR=ST(I»26) GEM 109 

IF (CHECK»GT.O.) GO TO 491 GEM 110 

DO 420 Jl=l>25il GEN4 111 

J=26-J1 GEN4 112 

CHECK = P(I.J) * D(I» J) * T(IfJ) * SP(IfJ) * SD(I»J) * ST(IrJ) GEM 113 
C FINDS INDEX IHV OF HIGHEST HEIGHT WITH NON-ZERO DATA GEM 114 

IHV = J GEN4 115 

IF (CHECK.GT.O.) GO TO 440 GEN4 116 

420 CONTINUE 6EN4 117 

C HEIGHT = HEIGHT INDEX - 1 GEM 118 

440 Z1 = IHV -1. GEN 4 119 

C SPRfSDR>STR=SIGHAS AT HEIGHT Z1 GEN 4 120 

SPR = SP(IflHV) GEN4 121 

SDR=SD(IfIHV) GEN4 122 

STR=ST(I?IHV) GEN 4 123 

C IF HEIGHT Z1 GEO 20 KN* USE GROVES AT 30 KH FOR INTERPOLATION GEM 124 

C OTHERWISE USE GROVES AT 25 KH GEN 4 125 

IF (IHV.GE.21) GO TO 480 GEN4 126 

C EVALUATES GROVES AT 25 KN FOR INTERPOLATION AND GEM 127 

C FILL IN OF ZERO DATA GEM 128 

CALL 6TERP<25iGLAT(I)»P2»D2»T2»PGfDG»TG»DPY»DTY»DP2Y) GEN 4 129 

IHP = IHV + 1 GEN4 130 

DO 450 K=IHPf26 GEN 4 131 

C AVOIDS INTERPOLATION OF P.DrT IF ONLY SIGMAS ARE ZERO GEM 132 

IF <(P(M)*D<I,K)tT(I>K)),GT.O,) GO TO 445 GEM 133 

GEN4 134 

C INTERPOLATES BETWEEN 4D AT HEIGHT Z1 AND GROVES AT 25 TO FILL GEM 135 

C IN MISSING DATA GEN4 136 

CALL INTER2(P(IiIHV)»0(I>IHV)iT(I»IHV)>Zl>P2»D2fT2»25.»PHfDHfTH»H)GEM 137 
P(IfK)=PH GEM 138 

D(I»K)=DH GEM 139 

T(I»K)=TH GEN4 140 

445 SP(IfK) = SPR GEN4 141 


D-13 



SD(I.K)=SDR GEM 142 

C SETS HISSING SIGMAS EQUAL TO SIGMAS AT HEIGHT Z1 GEN4 143 

450 ST(I»K)=STR GEN4 144 

GO TO 500 GEM 145 

C EVALUATES GROVES AT 30 KM FOR INTERPOLATION AND FILL IN OF GEN4 146 

C ZERO DATA GEN4 147 

480 CALL 6TERP(30.GLAT(I)»P2.D2.T2.PG.DG.TGjDPYiBTY.BP2Y) GEM 148 

CALL PBTUV < PSP » DSP » TSP» GL AT ( I ) f GLOW ( I ) r 30 . DP> PT f DPX f DP Y r DTX » DTYGEM 149 

C COMPUTE PERTURBATIONS TO GROVES MODEL GEM 150 

$ .DP2X.DP2Y.DPXY) GEM 151 

C ADD STATIONARY PERTURBATIONS TO GROVES MODEL GEN4 152 

P2 = P2*(l, + DP) GEN4 153 

D2 = 02*(1. I UD) GEN4 154 

12 = T2»<1. L DT) GEN4 155 

I HP = IHV + 1 GEN4 156 

DO 490 K=IHP.26 GEM 157 

C AVOIDS INTERPOLATING P.D.T IF ONLY SIGMAS ARE ZERO GEM 158 

IF (<P<IrK)«KIfK)*T(I»K)hGT.O.) GO TO 485 GEM 159 

H=K-1 GEN4 160 

C INTERPOLATES BETWEEN 4D AT HEIGHT Z1 AND GROVES AT 30 KM TO GEM 161 

C FILL IN MISSING DATA GEM 162 

CALL INTER2(P(I.IHV).D(I.IHV>.T(I.IHV)»Z1.P2.B2.T2.30..PH.DH.TH.H>GEN4 163 
P< I »K)=F'H GEN4 164 

D(I*K)=DH GEN4 165 

T(I.K)=TH GEN4 166 

485 SP(IfK) = SPR GEN4 167 

SD(I.K)=SDR GEM 168 

C SET MISSING SIGMAS AT HEIGHT 1 GEN4 169 

490 ST(I.K) = STR GEN4 170 

491 CONTINUE GEM 171 

I HP = IHV - 1 GEM 172 

DO 492 K=2.9 GEM 173 

IF (SP(I.K) .LE . 0.) SP(I.K) = SP(I.l) GEM 174 

IF (SO(I.K) .LE. 0.) SD(I.K)= SD(I.l) GEN4 175 

492 IF (ST(I.K) .LE. 0.) ST(I.K) = ST(I.l) GEM 176 

DO 495 K=10. IHP GEN4 177 

C SETS ALL ZERO SIGMAS TO SIGMA AT HEIGHT Z1 GEN4 178 

IF (SP(IfK).LE.O.O.AND.P(IfK).GT.O.) SP(I.K) = SPR GEM 179 

IF (SD(IrK) ,LE.O.O.AND.D(IfK).GT.O.) SD(IfK) = SDR GEM 180 

495 IF (ST(IfK).LE,O.O.AND.T<M).GT.O.) ST(I*K) = STR GEN4 181 

500 PA = P(Irl) GEN4 182 

TA = T(Ifl) GEM 183 

R =287.05 GEN4 184 

G=6Z»(1.+(Z/(RI-Z))«2) GEM 185 

K = 2 GEM 186 

510 PB = P(IfK) GEM 187 

TB = T(IfK) GEN4 188 

IF ((PB4TB) .GT. 0.) GO TO 520 GEN4 189 

K = K t 1 GEM 190 

GO TO 510 GEM 191 

520 IF (TA-TB) 560. 570. 560 GEM 192 

560 TZ = (TA-TB) / ALOG(TA/TB) GEM 193 

GO TO 575 GEN4 194 

570 TZ = TA GEN4 195 
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575 HS = K-l.+0.001*R*TZtAL06<PB/PA)/G G£N4 196 

KH=K-2 GEM 197 

IF(ABS(K-1-HS).6T.0.1) GO TO 578 GEM 198 

GAM=TB-T(I»K+1) GEM 199 

IF(GAM) 582. 590 f 582 GEM 200 

578 IF(TA-TB) 580i590f580 GEM 201 

580 GAM=(TA-TB)/(K-1-HS) GEM 202 

582 KH1=KH+1 GEN4 203 

IF(ABS(GAM).GT.6.l 6AM=SIGN<G>GAH) GEN4 204 

DO 585 JD=1»KM1f1 6EN4 205 

J=JD-1 GEM 206 

TJ=TA-GAMt(J-HS) GEM 207 

PJ=PA*(TJ/TA)*t(G/(R*6AM*0,001)) GEM 208 

DJ=PJ/(RITJ) 6EN4 209 

P(IfJ+1)=PJ GEN4 210 

D(IfJ+1)=BJ 6EM 211 

585 T(I?J+1)=TJ GEM 212 

GO TO 599 GEM 213 

590 KHMM+1 GEM 214 

DO 595 JD=1fKM1?1 GEM 215 

J=JD_1 GEM 216 

TJ= ™ GEN4 217 

PJ=PA*EXP(-G*(J-HS)/(R*0.001*TJ>> GEM 218 

DJ=PJ/(RtTJ) GEM 219 

P(IfJ+1)=PJ GEM 220 

D(IfJ+1)=DJ gem 221 

595 T(IfJ41)=TJ GEM 222 

IF<NSAME,E0.2) NSAME=1 GEN4 223 

599 HS=0* GEN4 224 

K0UKT = I GEM 225 

CALL ADJUST GEM 226 

600 CONTINUE GEN4 227 

GEN4 229 

SUBROUTINE GETNNC GETN 1 

c GETN 2 

C READS 'SETUP* DATA TAPEf OR NHC GRID DATA CARDSf GETN 3 

C AND WRITES SCRATCH FILE FOR USE BT SELEC4. GETN 4 

c GETN 5 

DIMENSION IP(15) GETN 6 

c GETN 7 

COMMON /IOTEHP/ I0TEM1fIUTEM2fIU6»NMCOPfIDUM(6O) GETN 8 

C GETN 9 

NR£C=0 GETN 10 

IF(NHCOP.NE.O) GO TO 2 GETN 11 

C GETN 12 

1 READ! IUGf 300f END=90) NfIP GETN 13 

300 FORMAT (A2f 191 7) GETN 14 

IF(N.NE,‘N') GO TO 6 GETN 15 

M TO 3 GETN 16 

2 READ(5f100) (IP(I)fI=1f15) GETN 17 

100 FORMAT! 1515) GETN 18 

3 DO 4 I=1f15f3 GETN 19 

M=IP(I) GETN 20 
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IF(M.LT.l) GO TO 5 

GETN 

21 


IJ=IP(Ifl)*1000HP(H2) 

GETN 

22 


WRITE (I0TEM2) IJ 

GETN 

23 


NREC=NREC+1 

GETN 

24 


4 CONTINUE 

GETN 

25 


IF(NMCOP.NE.O) GO TO 2 

GETN 

26 


GO TO 1 

GETN 

27 


5 IF(NREC.NE.1977) GO TO 6 

GETN 

28 

c 

MOVES PAST FIRST EOF ON UNIT IUG 

GETN 

29 

41 

READ ( IUG » 9999 < END=42 ) I DUMMY 

GETN 

30 

9999 FORMAT (A10) 

GETN 

31 


GO TO 41 

GETN 

32 

42 

RETURN 

GETN 

33 


4 WRITE(6»200) NRECf I0TEM2 

GETN 

34 

200 FORMAKlHl/lXflij* RECORDS WRITTEN BY GETNMC IN SCRATCH FILE 

M3) GETN 

35 


STOP 

GETN 

36 

90 

WRITE(6>400) IUG 

GETN 

37 

400 

FORMAT 4*1 PREMATURE END-OF-FIIE FOUND ON UNIT M2/ 

GETN 

38 


TO CALLED FROM SUBROUTINE GETNMC.') 

GETN 

39 


STOP 

GETN 

40 


END 

GETN 

41 


SUBROUTINE GRID4D 

GRID 

1 


INTEGER FLD 

GRID 

2 


REAL LATrlON 

GRID 

3 


COHMON/C4/LAT(16)»LON(16bNPjP(16>26>rR(16>26)*T(16r26)»SP(16>26)>GRID 

4 


♦ SR(16.26)>ST(16>26) 

GRID 

5 


COMMON /PDTCOM/ ITjMONTH 

GRID 

6 

C 


GRID 

7 

C 

S 

GRID 

8 

C 

SUBROUTINE TO SELECT PRESSURE » TEMPERATURE » AND DENSITY PROFILES (GRID 

9 

C 

TOGETHER WITH THE NORMALIZED VARIANCES IN EACH. AT UP TO 14 

•GRID GRID 

10 

C 

AT LAT/LONS SELECTED BY CALLING PR06RAM* 

GRID 

11 

C 


GRID 

12 

C 

USES NASA HUNTSVILLE MSFC 4-B DATA TAPES 

GRID 

13 

C 


GRID 

14 


DIMENSION IN(107).BUFFER(64) 

GRID 

15 

C 


GRID 

16 


COMMON /I0TEMP/ I0TEM1.I0TEM2 

GRID 

17 


COMMON /POINT/ IPT< 16»5) »LL ( 16) »DXY( 16»2) 

GRID 

18 


COMMON /ORDER/ IPTN(16.5)»IREAD(65f3) 

GRID 

19 


COMMON /INT/ D(208t5> rIG<5) »DYX(2) iDLA(4)»DL0(4) 

GRID 

20 

C 


GRID 

21 


INTEGER IOTEHlrREAD»WRITE 

GRID 

22 

C 


GRID 

23 

C 


GRID 

24 

C 

INITIALIZE 

GRID 

25 

C 


GRID 

26 


ZER0=0 . 0 

GRID 

27 


0NE=1.0 

GRID 

28 


TEN=10.0 

GRID 

29 


HUNDR=100.0 

GRID 

30 


THOU=1000.0 

GRID 

31 


READ=6H READ 

GRID 

32 


WRITER WRITE 

GRID 

33 
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c 

N=HONTH-l-(<2*rtONTH)/9)*4 
IF(N0NTH.EQ.13) N=0 
NUNEOF = 0 
CALL NTRAN(IT,10,22> 

IF (N.EQ.O) GO TO 20 
CALL NTRAML IT>8»H»22) 


GRID 34 
GRID 35 
GRID 36 
GRID 37 
GRID 38 
GRID 3? 
GRID 40 
GRID 41 
GRID 42 
GRID 43 
GRID 44 
GRID 45 
GRID 46 
GRID 47 
GRID 48 
GRID 49 
GRID 50 
GRID 51 
GRID 52 
GRID 53 
GRID 54 
GRID 55 
FOR RECORD NO. M5GRID 56 
GRID 57 
GRID 58 
GRID 59 
GRID 60 
GRID 61 
GRID 62 
GRID 63 
GRID 64 
GRID 65 
GRID 66 
GRID 67 
GRID 68 
GRID 69 
GRID 70 
GRID 71 
GRID 72 
GRID 73 
GRID 74 
GRID 75 
GRID 76 
GRID 77 
GRID 78 
GRID 79 
GRID 80 
GRID 81 
GRID 82 
GRID 83 
GRID 84 
6RID 85 
GRID 86 
GRID 87 


C 

C 

C 


APPROPRIATE 4-D INPUT TAPE NON POSITIONED - FILE NEEDED PROFILES 


20 CALL SELEC4 


IRC=0 

IRN=1 

IF(IREAD(IRNi3).E0.O) GO TO 39 

21 JT=IT 
H=R£AD 

22 CALL NTRAH<IT,2,106,IN,Lj22) 

IRC =IRC +1 

IF (L.EQ.-2) GO TO 39 
IF (L.LT.O) URITE(6,23) IT, L, IRC 

23 FORMAT! ' INPUT UNIT NO. M3,' IN ERROR (M2,' 
1 ) 

IF(IRC.LT.IREAD(IRN»3)) GO TO 22 
IF(IRC.GT.IREAD(IRN,3)) GO TO 39 

24 I=IREAD(IRN,1) 

J=IREAD(IRN,2) 

IF(IRN.EO.l) GO TO 25 

IF(IREAD(IRN,3).E0.IREAD(IRN-1,3)) GO TO 27 

25 IP=FLD(12,12,IN(106)) 

NP=FLD(24,12,IN(106)) 

IF((HP.NE. MONTH). OR. (IP»NE.IPT(I,J)>) GO TO 39 

DO 26 IK=1, 106,1 

K=107-IK 

IN(KF1)=IN(K) 

26 CONTINUE 

27 FLD(0,18,IN(1)) = I 
FLD(18,18,IN(1)) = J 
JT=IOTEM 

H=MRIT£ 

WRITE U0TEM1) IN 
IRN=IRN+1 

IF(IREAD(IRN,3) .EO.IRC) GO TO 24 
IF(IREAD(IRN,3).£fl.O) GO TO 28 
GO TO 21 


C 

C 

C 


INTERPOLATE TO GIVEN LAT/LON FROM 6RID DATA 

28 N=READ 
DO 38 11=1, NP 
DO 29 1=1,208 
DO 29 J=l,5 
D(I,J)=0.0 
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29 CONTINUE 
DO 32 J=l)4 

IF(IPTdlfJ).EQ.O) GO TO 32 
FLDTOrlSf INDEX) = II 
FLDd8) 18 r INDEX) = J 
REMIND IOTEM1 
REA0d0TENl)END=39) IN 
IF (IN(l).NE. INDEX) GO TO 30 
DO 31 1=2)105 
J2=2*I-2 
J1=J2-1 

D( Jl) J)=FLD(0)18)IN(I))/HUNDR 
D( J2« J)=FLD(18)18)IN(I))/HUNDR 

31 CONTINUE 

DLA(J)=FLD(0)18)IN(106)>/TEN 

PLO(J)=FLPd8)18)INd06)>/TEN 

32 CONTINUE 

IF NECESSARY) INTERPOLATE 

LALO=lL(II) 

DO 33 1=1)5 
IG(I)=IPT(II>I) 

33 CONTINUE 

IF(IG(2) .NE.O) GO TO 35 
DO 34 1=1)208 
D(I)5)=D(I)1) 

34 CONTINUE 
GO TO 37 

35 IF ( IG<5 ) .NE.2) GO TO 36 
DYX(1)=DXY(IM) 

DYX(2)=DXY(II)2) 

36 CALL INTRP4 (LALO) 

37 DO 38 1=1)26 
P(II.I)=D(I)5)*HUNDR 
R(II)I)=D(H156)5)/TH0U 
T(II)I) =D< 1+52)5) 

DIOIDE=ONE 

IF(P<II)D.GT.ZERO) DIVIDE=<PdI)I)/HUNDR>**2 

SP( I I ) I )=D< 1+26) 5 )/DIVIDE 

DIOIDE=ONE 

IF(R(II)I).GT.ZERO) DIVIDE=dH0U*RdI»l>>**2 

SR(II)I) = D(I+182)5)/DIVIDE 

DIVIDE=ONE 

IF(Tdl)I).GT.ZERO) DIVIDE=TdI)I>**2 
STdM)=Dd+78*5)/DMDE 

38 CONTINUE 
RETURN 

3? MRITE(6)40) JT» IRC» IREAD4 IRM* 3 ) f HP»HOMTH» IP» I » Jf IPT< I» J) »IRH»«»L 
40 FORMAT ( ' 1*1*1 UNIT NO.*) 13)' IN ERR0RM7)' RECORDS READ'/ 

1* IREAD(IRN)3) =M5i' HP =' r I3» ' MONTH =M3» 


GRID 88 
GRID 89 
GRID 90 
GRID 91 
GRID 92 
GRID 93 
GRID 94 
GRID 95 
GRID 96 
GRID 97 
GRID 98 
GRID 99 
GRID 100 
GRID 101 
GRID 102 
GRID 103 
GRID 104 
6RID 105 
GRID 106 
GRID 107 
GRID 108 
GRID 109 
GRID 110 
GRID 111 
GRID 112 
GRID 113 
GRID 114 
GRID 115 
GRID 116 
6RID 117 
GRID 118 
GRID 119 
GRID 120 
GRID 121 
GRID 122 
GRID 123 
GRID 124 
GRID 125 
6RID 126 
GRID 127 
GRID 128 
GRID 129 
GRID 130 
GRID 131 
GRID 132 
GRID 133 
GRID 134 
GRID 135 
GRID 136 
GRID 137 
6R1D 138 
GRID 139 
6RID 140 


2' IP = ' ) 15) * IPT< , )I2)V)I1)') =' )I5»* IRN =SI3/A6»' STATUSM5)6RID 141 



STOP 

GRID 142 

END 

GRID 143 

SUBROUTINE GROUP 

GR0U 1 

DIMENSION KOU(2> 

GROU 2 

COMMON/CHIC/LA(4,4),NB(2),IWSYH,UCO£Fd4f9),VCOEF(14?9) 

GROU 3 

COMMON /CHK/P(4,4,3),DEN<4,4,3),NO<2) 

GROU 4 

COMMON /WINC0M/DGH,FC0RY,DX5,DY5 

GROU 5 

FCORX = FCORYIDX5/DY5 

GROU 6 

KK=1 

GROU 7 

DO 100 1=1,4 

GROU 8 

DO 100 J=l,4 

GROU 9 

LAd,J)=4td-l)+J 

GROU 10 

100 CONTINUE 

GROU 11 

200 CONTINUE 

GROU 12 

DO 250 N=l,4 

GROU 13 

DO 250 N=l,4 

GROU 14 

IF (KK.E0,1> 60 TO 210 

GROU 15 

I=5-M 

GROU 16 

J=5-N 

GROU 17 

NN=-1 

GROU 18 

N4=-l 

GROU 19 

GO TO 220 

GROU 20 

210 CONTINUE 

6R0U 21 

I=M 

GROU 22 

J=N 

GROU 23 

NN=1 

GROU 24 

N4=l 

GROU 25 

220 CONTINUE 

GROU 26 

IF (N.EQ.4) GO TO 225 

GROU 27 

DINX=FCORXt (D£N(I,J+NN,2)+DEN(I,J,2))/2 

GROU 28 

VY=(Pd,J+NN»2)-Pd,Jr2))/DINX 

GROU 29 

IF(ABS(VY).GT,100) GO TO 225 

GROU 30 

LA(I,J)=HINO(LAd,J)»lAd, JTNN)) 

GROU 31 

LA(I,J+NN)=LA(I,J) 

GROU 32 

225 CONTINUE 

GROU 33 

IF<H.EQ,4) 60 TO 250 

GROU 34 

DINY=FCORYI (DEN(I+N4,J,2)+DEN(I,J,2))/2 

GROU 35 

VX=(Pd+N4,J,2)-Pd,J,2))/DINY 

GROU 36 

IF(ABS(VX)»GT*100) GO TO 250 

GROU 37 

LA(I,J)=MIN0(LA(I,J),LA(I+N4,J)) 

GROU 38 

LAd+N4»J)=LAd»J) 

GROU 39 

250 CONTINUE 

GROU 40 

KK=KK+1 

GROU 41 

IF0CK.EQ.2) GO TO 200 

GROU 42 

N0(l)=0 

GROU 43 

N0(2)=0 

GROU 44 

11=1 

GROU 45 

DO 400 LL=1,11 

GROU 46 

KOUdI)=l 

GROU 47 

DO 300 1=1,4 

GROU 48 

DO 300 J=l,4 

GROU 49 

IF(LA(1, JhEfl.LL) KOUdI)=MJ(II>+l 

GROU 50 

300 CONTINUE 

GROU 51 

IF (KOUdDfGE.?) NO(II)=LL 

GROU 52 
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IF (KOU(II) .6E.7) 11=2 

6R0U 

53 

400 CONTINUE 

GROU 

54 


RETURN 

GROU 

55 


END 

GROU 

56 


SUBROUTINE 6TERP(IH)PHI)P)D>T)PG)D6)TG)DPY)DTY)DP2Y) 

GTER 

1 

Ct i . 

..INTERPOLATES GROVES DATA TO HEIGHT IH AND LATITUDE PHI 

GTER 

2 


DIMENSION PGI18fl9)jTG(18»19)fDG(18fl9) 

GTER 

3 

c 

HEIGHT INDEX 

GTER 

4 


I =<IH - 20)/5 

GTER 

5 

c 

LOWER LATITUDE INDEX 

GTER 

6 


J = INK (PHI I 100. )/10. ) 

GTER 

7 


IF < J.LT.l) J = 1 

GTER 

8 


IF (J.GT.18) J = 18 

GTER 

9 

c 

UPPER LATITUDE INDEX 

GTER 

10 


JP = J + 1 

GTER 

11 

C ♦ . . 

,, CHECK FOR DENSITY OR TEMPERATURE LEO 0 

GTER 

12 


CHK = DG(I)J) * TG(IfJ) * DG(I)JP) t TG(I)JP) 

GTER 

13 


IF (CHK) 10)10)20 

GTER 

14 

10 

P = PG(I)J) 

GTER 

15 


D = DG(IfJ) 

GTER 

16 


T = TG(IiJ) 

GTER 

17 


GO TO 30 

GTER 

18 

C, , , 

..LATITUDE DEVIATION FROM GROVES ARRAY POSITION 

GTER 

19 

20 

PHIF = (PHI + 100, - 10,*J)/10. 

GTER 

20 


TL= TG(I»J) \ (TGI If JP ) - TG(IrJ))*PHIF 

GTER 

21 

C 

LATITUDE INTERPOLATION 

GTER 

22 


DL= PG(I f J) + (DG(I)JP ) - DG(IfJ)) tPHIF 

GTER 

23 


R1 = PG(IfJ)/(DG(I» J)ITG(IfJ)) 

GTER 

24 


R2 = PG(I)JP)/(DG(IfJP)BTG(If JP)) 

GTER 

25 

C 

INTERPOLATED GAS CONSTANT 

GTER 

26 


R = R1 + <R2 - RDIPHIF 

GTER 

27 

C 

PRESSURE COMPUTED FROM INTERPOLATED GAS CONSTANT 

GTER 

28 


P =DL*R*TL 

GTER 

29 


D = DL 

GTER 

30 


T = TL 

GTER 

31 

c 

DP/DY FOR GEOSTOPHIC HINDS 

GTER 

32 

30 

DPY = (PG(I)JP) - PG(I»J>) < 0.5 

GTER 

33 

C 

DT/DY FOR THERMAL HINDS 

GTER 

34 


DTY = (TG(hJP) - TG(hJ)) I 0.5 

GTER 

35 


JM = J - 1 

GTER 

36 


IF (JM.LT.l) JM = JP 

GTER 

37 


DP2Y = (PG(IfJP) - PGUiJM ))*0.5 

GTER 

38 


IF <ABS(PHI)-90.) 50)40)40 

GTER 

39 

40 

DPY = 0, 

GTER 

40 


DTY = 0, 

GTER 

41 


DP2Y = 0, 

GTER 

42 

50 

CONTINUE 

GTER 

43 


RETURN 

GTER 

44 


END 

GTER 

45 


SUBROUTINE INTERH(Ul)Vl)Zl)U2)V2)Z2»UrV)Z) 

INTE 

1 


IF ( Z1 - Z2 ) 20)10)20 

INTE 

2 


10 U = U1 

INTE 

3 

C 

SETS U)V = U1)V1 IF Z1 = Z2 

INTE 

4 


V = VI 

INTE 

5 
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RETURN 

INTE 

6 


20 A = (Z-Z1)/(Z2-Z1) 

INTE 

7 


U = U1 + (U2-U1) * A 

INTE 

8 


V = VI + (V2-MD * A 

INTE 

9 

c,. 

...LINEAR INTERPOLATION BETWEEN U1.V1 AT HEIGHT Z1 AND U2»V2 AT 

INTE 

10 

c 

HEIGHT Z2, OUTPUT IS UrV AT HEIGHT Z 

INTE 

11 


RETURN 

INTE 

12 


END 

INTE 

13 


SUBROUTINE INTERZ ( PI . D1 » T1 . Z1 * P2 r D2. T2 . Z2. P, D. T» Z) 

INTE 

1 


5 IF (Z1 - Z2) 20(10.20 

INTE 

2 

10 

P = PI 

INTE 

3 


•=> 

11 

INTE 

4 

c 

SETS P. D. T = PlrDlf Tlf IF Z1 = Z2 

INTE 

5 


T =T1 

INTE 

6 


RETURN 

INTE 

7 

20 

A = (Z - 11)/ (12 - m 

INTE 

8 


2 

I 

CM 

H- 

>— 

I — 
It 

►— 

INTE 

9 


B = 01 + <02 - D1)*A 

INTE 

10 


P = PI + (P2 - PI) * A 

INTE 

11 

C... 

...LINEAR INTERPOLATION BETWEEN PDD1.T1 AT HEIGHT Z1 AND P2.D2.T2 

INTE 

12 

C 

AT HEIGHT 12 TO OUTPUT VALUES OF P.D.T AT HEIGHT Z 

INTE 

13 


RETURN 

INTE 

14 


END 

INTE 

15 


SUBROUTINE INTER2<Pl,Bl(Tl>Zl»P2.D2fT2fZ2fP.D(T»Z) 

INTE 

1 

C. . , 

...INTERPOLATES BETWEEN PldU.Tl AT HEIGHT Z1 AND P2»D2»T2 AT 

INTE 

2 

C 

HEIGHT 12 TO OUTPUT VALUES OF P.D.T AT HEIGHT Z 

INTE 

3 

C. « « 

..CHECKS FOR Tl.Dl(T2iD2 PRODUCT = 0» FOR GAS CONSTANT INTERPOLATIONINTE 

4 


CHK=T1*D1*T2*D2 

INTE 

5 


IF (CHK) 10.10(5 

INTE 

6 


5 IF (Z1 - Z2) 20.10.20 

INTE 

7 

10 

P = PI 

INTE 

8 


D = D1 

INTE 

9 

c 

SETS P.D.T = P1.D1.T1 IF Z1=Z2 

INTE 

10 


T = T1 

INTE 

11 


RETURN 

INTE 

12 

20 IF(P1*D1*T1*P2*D2*T2,LE,0>)GO TO 30 

INTE 

13 


A=ALOG ( D2/D1 ) / ( Z2-Z 1 ) 

INTE 

14 

C 

LINEAR INTERPOLATION ON LOG D 

INTE 

15 


DZ= D1*EXP(A*(Z - Zl)) 

INTE 

16 


A=(Z-Z1)/(Z2-Z1) 

INTE 

17 

C 

LINEAR INTERPOLATION ON T 

INTE 

18 


TZ= T1 + AKT2-T1) 

INTE 

19 


R1=P1/(D1*T1) 

INTE 

20 


R2=P2/<D2IT2) 

INTE 

21 

C 

LINEAR INTERPOLATION ON GAS CONSTANT R 

INTE 

22 


R=(R2-R1)*A+R1 

INTE 

23 

C 

PRESSURE FROH PERFECT GAS LAW 

INTE 

24 


P = DZ * R 1 TZ 

INTE 

25 


D = DZ 

INTE 

26 


T = TZ 

INTE 

27 


RETURN 

INTE 

28 

30 P=0, 

INTE 

29 


0=0. 

INTE 

30 


T=0. 

INTE 

31 
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RETURN INTE 32 

END INTE 33 

SUBROUTINE INTER* ( CLAT » CLONf lb P» D» Tf INTE 1 

* P4f D4f T4f DPXf DPYf DTXf DTYt DPXXrDPYY^DPXT ) INTE 2 

COHNON/IOTEHP/IOTEH1 > I0TEM2f IUGf NMCOPfDDfXHJDfPHIIfPHI » INTE 3 

.NSAME INTE 4 

C INTERPOLATES BETWEEN 4B ARRAYS PUiIH)fD(IfIH)fT(IfIH) AT GRID INTE 5 

C LOCATIONS LATITUDE GLAT(I) LONGITUDE GLON(I). INTE 6 

C CLATfCLON = CURRENT LATITUDE fLONGITUDE INTE 7 

C IZ = HEIGHT NG = NUMBER OF 4D GRID POSITIONS INTE 8 

C OUTPUT = P4fD4fT4f AND DERIVATIVES DPXfDPYfDTXfDTY INTE 9 

COMMON /C4/ GLAT(16)fGL0N(16)fNG INTE 10 

COMMON/CHIC/LA(4»4) fNB(2) f IHSYMfUCOEF < 14»?) » MCOEF< 14»?) INTE 11 

DIMENSION P(16f26)fB(16f26>fT(16f26>fLAX(16) INTE 12 

IWSYM = ' ' INTE 13 

ICHK--0 INTE 14 

C HEIGHT INDEX = HEIGHT + 1 INTE 15 

IH = IZ + 1 INTE 

5 IF (ICHX,GT.l) GO TO 220 INTE 17 

IF (NG.GT.9) GO TO 100 INTE 18 

C NG = 9 MEANS POLAR GRID INTE 19 

DO 10 I= 10 f 16 f 1 INTE 20 

P(I>IH) = P(9fIH) INTE 21 

D(IfIH) = D(9fIH) INTE 22 

T(IfIH) = T(9»IH) INTE 23 

GLAT(I) = GLAT(9) INTE 24 

C 1=10-16 ALL AT 90 DEG INTE 25 

10 GLON(I) = GL0N(I-8) INTE 26 

C LOWER RIGHT INTERPOLATION INDEX INTE 27 

IB = INT1CL0N/45) + 1 INTE 28 

C LOWER LEFT INTERPOLATION INDEX INTE 29 

IA =IB+1 INTE 30 

IF (IA.GT.8) IA = IA-8 INTE 31 

C POSITION OUTSIDE POLAR GRID INTE 32 

IF (ABS<CLAT).LT,75.) 60 TO 20 INTE 33 

C UPPER LEFT INTERPOLATION INDEX INTE 34 

IC = IA +8 INTE 35 

C UPPER RIGHT INTERPOLATION INDEX INTE 36 

ID = IB + 8 INTE 37 

GO TO 300 INTE 38 

20 IF(NSAME.EQ»1) NSAM£=2 INTE 39 

CALL GEN4D INTE 40 

IWSYM = •*' INTE 41 

ICHK = ICHK + 1 INTE 42 

GO TO 5 INTE 43 

100 XLQN = CLON INTE 44 

DO 105 I = 1»4 INTE 45 

DO 105 J = 1f4 INTE 46 

116 = 4*(I-1) + J INTE 47 

LAXII16) = LA(IjJ) INTE 48 

105 CONTINUE INTE 49 

IF (CLON, GT, 345) XLON = CLON - 360, INTE 50 

C CHECKS FOR POSITION WITHIN 16 POINT GRID 110=GOOD. 200=POSITI0N INTE 51 

C OUTSIDE GRID, INTE 52 
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IF (CLAT.GE.GLAT(l) .AND. CLAT.LT,GLAT(16) .AND. XLON.LE.GLONd) INTE 53 


t .AND.XL0N»GT.GL0N(16) ) GO TO 110 INTE 54 

GO TO 200 INTE K 

110 NDL=5 jNi£ 54 

IF(ABS(CLAT).LT.18) NDL=12 INTE 57 

IA = 1 + IHT((6L0Nd) - XLON) / 5) INTE 58 

C IA = LONER LEFT (REFERENCE) INTERPOLATION INDEX INTE 5? 

IA = IA I 4 I INTdCLAT - GLAT(l)) / NDL) INTE 60 

C LOWER RIGHT INTERPOLATION INDEX INTE 61 

IB = IA + 1 INTE 62 

C UPPER LEFT INTERPOLATION INDEX INTE 63 

IC = IA + 4 INTE 64 

C UPPER RIGHT INTERPOLATION INDEX INTE 65 

ID = IA + 5 INTE 66 

IF(LAX(IA).EQ.NBd) .0R.LAX(IA).E0.ND(2).0R.LAX(IB)»NE.LAX(IA>. INTE 67 
* OR.LAX(IC).NE.LAX(IA)»OR.LAX(ID).NE.LAX(IA))lWSYM =, t* INTE 68 

GO TO 300 INte 69 

200 IF(NSANE.E0.1)NSANE=2 INTf 70 

CALL GEN4D INT£ n 

IWSYH - *<• INTf 72 

ICHK = ICHK + 1 INte 73 

GO TO 5 INTE 74 

220 HRITE(6*250) INTE 75 

250 FORNATC UNABLE TO GENERATE 4-D GRID') INTE 76 

P4=0. !NTE 77 

1)4=0 • INTE 78 

T4=0, jNte 79 

RETURN INte 80 

c INTERPOLZTION FOR POSITION INSIDE 16 POINT GRID OR POLAR GRID INTE 81 

300 CALL INTLL(PfIAiIBrIC'IDrP4iGLATrGL0N>CLATrCL0NrIH) INTE 82 

CALL INTLL(D)IA»IB>ICiIDiD4*6LAT»GL0N»CLAT»CL0N*IH) INTE 83 

CALL INTLL(TrIA'IBrIC*IDrT4rGLATrGL0NfCLATrCL0NfIH) INTE 84 

c RELATIVE LONGITUDE DISPLACEMENT FROM REFERENCE POSITION (IA) INTE 85 

DLON = (CLOW - GL0N(IA))/<6L0N(IB) - GLON(IA) ) INTE 86 

c RELATIVE LATITUDE DISPLACEHENT FROM REFERENCE POSITION(IA) INTE 87 

DLAT = (CLAT - GLAT(IA))/(GLAT(IC) - GLAT(IA)) INTE 88 

DPX=P(IB»IH)-P<IA»IH) INTE 89 

C OP/DX FOR GEOSTROPHIC WIND EQUATIONS INTE 90 

DPX = DPX + (P(ID»IH) - P(ICiIH) - DPXXDLAT INTE 91 

DTX = T(IB)IH) - T(IA>IH) INTE 92 

C DT/DX FOR THERMAL HIND EQUATIONS INTE 93 

DTX = DTX i (T(IDtlH) - T(1C»IH) - DTX)»DLAT INTE 94 

DPT = P(IC»IH) - P(IAfIH> INTE 95 

C DP/DT FOR GEOSTROPHIC HIND EQUATIONS INTE 96 

DPY = DPT + (P(ID,IH) - P(IBflH) - DPY)tDLON INTE 97 

DTY = T(ICiIH) - T(IAdH) INTE 98 

C DT/DT FOR THERMAL HIND EQUATIONS INTE 99 

DTY = DTY + (T(IDflH) - T(IB,IH) - DTY)*DLON INTE 100 

IF(NG.GT.9) GO TO 315 INTE 101 

DPX=DPX/9. !NiE 102 

DTX=DTX/9. INTE 103 

DPY=DPY/3. INTE 104 

DTY=DTY/3. INTE 105 

315 IF(ABS(CLAT) .GT.18) BO TO 312 INTE 106 
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DPY=BPY*5./12 

[iTY=HTYI5,/12 

312 IF (N6.GT >?) 60 TO 310 
DPXX' = 0. 

DPYY = 0. 

DPXY = 0. 

RETURN 

310 DPXY = P(IO.IH) - P<IC,IH) - P(IB.IH) F P(IA.IH) 

IF < MOP ( I B r 4 ) .EQ.O) 60 TO 320 

11 = IA 

12 = IB + 1 

13 = IC 

14 = ID + 1 
SX=1. 

60 TO 330 
320 II = IA - 1 

12 = IB 

13 = IC - 1 

14 = ID 
SX=-1, 

330 IF<LAX(in,N£.LAX(IA).0R.LAX(I2).NE.LAX(IA).0R t LAX(I3).NE. 

* LAX(IA) ►0R»LAX(I4).NEtLAX(IA)) GO TO 340 
DPXX = P(I2,IH) - P< IlrIH) 

DPXX = DPXX + IP(I4,IH> - P(I3.IH) - BPXXXDLAT 
IF IIC.GT.12I GO TO 340 

11 = IA 

12 = IC + 4 

13 = IB 

14 = ID + 4 
SY=1 . 

GO TO 350 
340 II = IA - 4 

12 = IC 

13 = IB - 4 

14 = ID 
SY=-1» 

350 IF<LAX(I1).NE.LAX(IA).0R.LAX(I2)*NE.LAX<IA).0R.LAX<I3>.NE. 
t LAX(IA).0R,LAX(I4),NE.LAX(IA)) GO TO 340 
DPYY = P(I2>IH) - P(IMH) 

DPYY = DPYY + <P(I4»IH> - P<I3»IH> - DPYY)IDLON 
DPXX =IDPXX - 2»*DPX )*SX 
DPYY =(DPYY - 2.*DPY )»SY 
RETURN 

340 DPXX = 0. 

DPYY = 0. 

DPXY = 0. 

IMSYH = 

RETURN 

END 

SUBROUTINE INTLUFjIA»IB>ICrIDtFLL»GLAT»GLON»CLATjCLON>IH) 

C INTERPOLATES FUNCTION (ARRAY) F FROM VALUES OF GLAT AND GLON 

C INDEX VALUES IA. IB. IC, ID TO OUTPUT VALUE FLL AT HEIGHT 

C AND POSITION CLAT, CLON 

DIMENSION F( 16.24) ,GLAT( 16), GL0N(14) 


INTE 107 
INTE 108 
INTE 10? 
INTE 110 
INTE 111 
INTE 112 
INTE 113 
INTE 114 
INTE 115 
INTE 114 
INTE 117 
INTE 118 
INTE 119 
INTE 120 
INTE 121 
INTE 122 
INTE 123 
INTE 124 
INTE 125 
INTE 126 
INTE 127 
INTE 128 
INTE 129 
INTE 130 
INTE 131 
INTE 132 
INTE 133 
INTE 134 
INTE 135 
INTE 136 
INTE 137 
INTE 138 
INTE 13? 
INTE 140 
INTE 141 
INTE 142 
INTE 143 
INTE 144 
INTE 145 
INTE 146 
INTE 147 
INTE 148 
INTE 14? 
INTE 150 
INTE 151 
INTE 152 
INTE 153 
INTE 154 
INTE 155 
INTL 1 
AT INTL 2 

IH INTL 3 

INTL 4 
INTL 5 
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c NORMALIZES LONGITUDE DISPLACEMENT 

IF<F(IA»IH)<F(IB»IH)*F(IC>IHXF(ID>IH>> 20rl0»20 
10 FLL=0. 

RETURN 

20 X=< CLON-GLON ( I B ) ) / ( GL ON ( I A ) -GLON ( I B ) ) 

C NORMALIZES LATITUDE DISPLACEMENT 

Y= ( CLAT-GLAT ( IA ) ) / ( 6LAT ( IC ) -GLAT ( IA > ) 

C THO DIMENSIONAL INTERPOLATION 

FLL=F(IB»IH)+<F(IDfIH)-F(IBfIH))*Y+(F(IAfIH)-FfIB»IH>>ltX 
1 +(F(IC»IH)-F(IAfIH)-F(ID»IH>+F(IBfIH))*X*Y 
RETURN 
END 

SUBROUTINE INTRP4 (LALON) 

C 

C SUBROUTINE TO INTERPOLATE VALUES 
C 

DIMENSION XLL<4bYLL<4),XC(4MC(4) 

C 

C0NMON/INT/D(208r5MG(5)fDXY(2)»DLA(4)fDL0<4) 

C 

DEGRAD=3. 14159/180, 

LALO=IABS(LALON) 

L1=LAUI/10000 
L2=LALO-L1*10000 
XL =L 1/10. 

YL=L2/10. 

IF (IG(5)-2) 30i20»10 
10 IF (IG(5)-3) 30 r 30 » 50 
C 

C INTERPOLATE FROM NMC GRID 
C 

20 CONTINUE 
DO 25 L=1 f 26 
DO 22 J=l,4 

22 IF (D(L»J).LT.0.01) GO TO 25 
DO 24 K=1 » 8 
I=(K-1)*26+L 

D(I»5)=(l,-DXY(2))t((l,-DXY(l)XD(I>l)+DXY(l)ID(I»2)) 

1 +DXY(2)*(((l,-DXYa))tD(lF3))+DXYIl)*D(I»4)) 

24 CONTINUE 

25 CONTINUE 
RETURN 

C 

C INTERPOLATE FROM EQUATION FOR SOUTHERN HEMISPHERE GRID 
C 

30 CONTINUE 
DO 32 J=l,2 
XLL(J)=DLAU) 

YLL(J)=DLO(J) 

IF (<YL, GE, 355.). AND. (YLLIJhLT.O. 01)) YLL(J>=360. 

32 CONTINUE 

X=(YLL(1 )-YL)/5, 

Y=(XL-XLL(l))/5. 

IF (IG(5).EQ,3) Y=-Y 


INTL 6 
INTL 7 
INTL 8 
INTL 9 
INTL 10 
INTL 11 
INTL 12 
INTL 13 
INTL 14 
INTL 15 
INTL 16 
INTL 17 
INTR 1 
INTR 2 
INTR 3 
INTR 4 
INTR 5 
INTR 6 
INTR 7 
INTR 8 
INTR 9 
INTR 10 
INTR 11 
INTR 12 
INTR 13 
INTR 14 
INTR 15 
INTR 16 
INTR 17 
INTR 18 
INTR 19 
INTR 20 
INTR 21 
INTR 22 
INTR 23 
INTR 24 
INTR 25 
INTR 26 
INTR 27 
INTR 28 
INTR 29 
INTR 30 
INTR 31 
INTR 32 
INTR 33 
INTR 34 
INTR 35 
INTR 36 
INTR 37 
INTR 38 
INTR 39 
INTR 40 
INTR 41 
INTR 42 
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DO 38 L=1.26 MR 43 

DO 36 J=l»4 MR 44 

36 IF (D(L.J).LT.O.Ol) GO TO 38 MR 45 

DO 37 K=l»8 MR 46 

I=(K-1)*26+L MR 47 

D<I>5)=D(I.mX*(D(I.2)-D(M>W*<D<I»3)-D(I.l)>+XW MR 48 

1 (D(I.4)-0(I.3)-D(I.2)+D(I.l)) MR 4? 

37 CONTINUE MR 50 

38 CONTINUE MR 51 

RETURN MR 52 

C INTR 53 

C INTERPOLATE FRON ACROSS GRIDS INTR 54 

C INTR 55 

50 CONTINUE INTR 56 

IF <IG(5).NE.1133) GO TO 55 INTR 57 

IG(5)=3 MR 58 

60 TO 30 INTR 5? 

55 CONTINUE INTR 60 

IF (IG(5) .NE.333) GO TO 60 MR 61 

DL0( 1 )=(BL0(2)+DL0(3) )/2. MR 62 

DO 52 1=1.208 MR 63 

52 D(It4)=D(I»3) MR 64 

DLA(4)=DLA<3) MR 65 

DL0(4)=DL0<3) MR 66 

60 CONTINUE INTR 67 

DO 62 1=1.4 INTR 68 

XLL(I)=BLA(I) MR 69 

YLL(I)=DL0(I) MR 70 

IF ((YL.GT,350.).AND.(YLL(I).LT.0.01)) YLL(I)=360. MR 71 

62 CONTINUE INTR 72 

ITH=0 INTR 73 

X=YLL<1 '-YL MR 74 

Y=XL-XLL(D MR 75 

63 CONTINUE INTR 76 

DO 65 I=2» 4 INTR 77 

XC(I)=YLL<1)-YLL(I) MR 78 

65 YC<I)=XLL(I)-XLL(1) MR 79 

TH2=3. 14159/4 MR 80 

TH3=3. 14159/4 INTR 81 

IF (ABS(XC<2)).GT.0.01) TH2=ATAN(YC(2)/XC<2)) MR 82 

IF (ABS(YC<3)).GT.0.01) TH3=ATAN(XC(3)/YC(3)) MR 83 

IF (XC(2).LT.O.) TH2=3.14159+TH2 MR 84 

IF (XC(3) .LT.0. ) TH3=3» 14159+TH3 MR 85 

DNN=C0S<TH2+TH3) INTR 86 

IF (ABStDWN) .GT.0.001 ) GO TO 66 MR 87 

JTH=ITH+1 INTR 88 

IF IITH.EQ.2) GO TO 66 INTR 89 

XLL(3)=XLL(4) INTR 90 

YLL(3)=YLL(4) INTR 91 

DO 61 1=1.208 INTR 92 

61 D<I.3)=D(I»4) MR 93 

60 TO 63 INTR 94 

66 CONTINUE INTR 95 

ZA=SQRT(XC(2)«2+YC(2)»2) INTR 96 
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IF (ITH.LT.2) GO TO 69 
Z=SGRT(XII2+Y4I2) 

E=0, 

Z4=0, 

GO TO 71 
69 CONTINUE 

EB=SQRT<XC(3)tt2+YC(3)tt2) 

Z4=(XC(4)ICOS(TH3)-YC(4)tSIN(TH3))/DNN 

E4=(YC(4)*C0S(TH2)-XC(4)*SIN(TH2))/D«N 

Z=(X*COS(TH3)-Y*SIN<TH3))/DHN 

E=( Y*COS( TH2)-X4SIN< TH2) )/DNW 

B=0. 

C=0. 

00 = 0 , 

C 

71 CONTINUE 
00 70 L=1 i 26 
00 68 J=l>4 

68 IF (D(L>J),LT,0.01) GO TO 70 
00 67 K'=li8 
I=(K-1>*26+L 
A=DUrl) 

IF (ZA.GT.0,01) B=(D(I>2)-D(M))/ZA 
IF (EB.GT.0,01) C=<0(Ii3)-D(M))/EB 
IF ( (ABS(Z4).6T. 0,01), AND. (ABS<E4),GT,0.01)) 

1 DD=(D(M)-A-BfZ4-C*E4)/<Z4*E4) 

D(1 , 5 )=A+B4Z+CI£+BDIZI£ 

67 CONTINUE 
70 CONTINUE 
RETURN 
END 

SUBROUTINE INTRUV(UR,W,H,PNI,SUHpSVH) 

C FIHDS MNOOH NINO STANDARD DEVIATION AT HEIGHT H (KH)t LATITUDE 

C PHI (DEGREES) > FRON UR AND VR ARRAYS 

DINENSION UR(25fl0)>VR(25rl0) 

C I - LONER HEIGHT INDEX 

IF (H,LT.95.) 1 = 1 + INt(H) / 5 
IF (H.GE,95.) I=19+(INT(H)-80)/20 
IF (I.GT.25) I = 25 
C UPPER HEIGHT INDEX 

IP=I+1 

IF (IP.GT.25) IP=25 
C LONER LATITUDE INDEX 

J=IHT(PHI+110.)/20 
C UPPER LATITUDE INDEX 
JP=J+1 

IF (JP.GT.10) JP=10 

c PHI1 " LONER LATITUDE FOR UR AND VR ARRAY VALUES 

PHI1=-110,+20,IJ 

c P «J2 - UPPER LATITUDE FOR UR AND VR ARRAY VALUES 

PHI2=-110.+20.*JP 
IF (I,6T,19) GO TO 10 

C LONER HEIGHT FOR UR AND VR ARRAY VALUES 
Z1=5.*(I-1) 


INTR 97 
INTR 98 
INTR 99 
INTR 100 
INTR 101 
INTR 102 
INTR 103 
INTR 104 
INTR 105 
INTR 106 
INTR 107 
INTR 108 
INTR 109 
INTR 110 
INTR 111 
INTR 112 
INTR 113 
INTR 114 
INTR 115 
INTR 116 
INTR 117 
INTR 118 
INTR 119 
INTR 120 
INTR 121 
INTR 122 
INTR 123 
INTR 124 
INTR 125 
INTR 126 
INTR 127 
INTR 1 
INTR 2 
INTR 3 
INTR 4 
INTR 5 
INTR 6 
INTR 7 
INTR 8 
INTR 9 
INTR 10 
INTR 11 
INTR 12 
INTR 13 
INTR 14 
INTR 15 
INTR 16 
INTR 17 
INTR 18 
INTR 19 
INTR 20 
INTR 21 
INTR 22 
INTR 23 
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60 TO 20 

INTR 

24 

10 

Z1=20,«I-15) 

INTR 

25 

20 

IF (IP.GT.19) 60 TO 30 

INTR 

26 

C 

UPPER HEIGHT FOR UR AND OR ARRAY VALUES 

INTR 

27 


22=5. KIP-1 ) 

INTR 

28 


GO TO 40 

INTR 

29 


30 Z2 = 20, 1 (IP - 15) 

INTR 

30 

C 

INTERPOLATE ON LATITUDE AT LONER HEIGHT 

INTR 

31 


40 CALL INTERM(UR(IfJ)fVR(IfJ)fPHI1fUR(IfJP)fVR(IfJP)fPHI2fU1fV1f 

INTR 

32 


♦PHI) 

INTR 

33 

c 

INTERPOLATE ON LATITUDE AT UPPER HEIGHT 

INTR 

34 


CALL INTERW(UR(IPf J)fVR(IPf J)fPHI1fUR<IPfJP)fVR(IPfJP)fPHI2fU2fV2fINTR 

35 


♦PHI) 

INTR 

36 

c 

INTERPOLATE ON HEIGHT 

INTR 

37 


CALL INTERH(U1fV1fZ1fU2fV2fZ2fSUHfSVHfH) 

INTR 

38 


RETURN 

INTR 

39 


END 

INTR 

40 


SUBROUTINE JAC(ZfTZfDENS) 

JAC 

1 


COhNON/IOTEHP/IOTEHl » I0TEH2> IU6fNHC0pFDD»X«JDfPHIl rPHI f 

JAC 

2 


. NSAHEfRPIf RDIf RTIf SPIf SD1» STlr RUIf RVIf SUIf SV1 

fJAC 

3 


♦ HNf IDAf IYRf HI f PHIIRfTHETIRfGfRIfHfPHIRfTHETRfFIOfFIOBfAPf 

JAC 

4 


, IHRfHINfNHOREfDXfHLfVLfDZ 

JAC 

5 


COHHON/COH J AC/XL AT F XLONG F SDA F SHA F DY F Y F T F EH 

JAC 

6 


DIMENSION ALPHA(6)fEI(6)fDI(6)f B(7)fDIT(6) 

JAC 

7 


00 = 100, 

JAC 

8 


DATA ALPHA/O. 0f0,0f0.Of0.0f-0.38f0.0/’ 

JAC 

9 


DATA EI/28.0134f31.9988f15,9994f39.948f4.0026f1.00797/ 

JAC 

10 


DATA B/28.15204f-0,0855B6f1.284E-04f-1,0056E-05f-1.021E-05f 

JAC 

11 


1 1 . 5044E-06, 9 , 9826E-08/ 

JAC 

12 


AV=6.02257E23 

JAC 

13 


QN= . 78110 

JAC 

14 


002=. 20955 

JAC 

15 


0A=. 009343 

JAC 

16 


OHE = 1.289E-5 

JAC 

17 


FK=8.31432 

JAC 

18 

c 


JAC 

19 

c 

TEMPERATURE AT Z = 125 KHf EQ. 9 

JAC 

20 

c 


JAC 

21 


TX=444 . 3807+ . 02385IT -392 ,8292*EXP<- .0021357IT ) 

JAC 

22 


A2=2,KT-TX)/3. 14159265 

JAC 

23 

c 


JAC 

24 

c 


JAC 

25 


DIT(6)=0, 

JAC 

26 


H=10 

JAC 

27 


EPS=,0001 

JAC 

28 

c 


JAC 

29 

c 

TEMPERATURE FOR 90ZZI125f EQ, 10 

JAC 

30 

c 


JAC 

31 


Tl=1.9KTX-183,)/35. 

JAC 

32 


T4=3.KTX-183.-2.*Tl*35,/3,)/(35.t*4) 

JAC 

33 


T3=-Tl/( 3 . *35 . t*2 H4 , IT4I35./3. 

JAC 

34 


TZ=TX+T1KZ-125,)+T3KZ-125,)**3+T4KZ-125.)**4 

JAC 

35 


IF (Z-105.) 43f43f40 

JAC 

36 

c 


JAC 

37 
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c 

c 


70 

C 

C 

C 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


71 

72 


73 


74 


75 


44 


MEAN MOLECULAR HEIGHT FOR 90ZZZ105, EG, 1 
43 Z2 = Z - QO 

EN=B<lHB(2)*Z2IB(3)*Z2*l2+B(4)*Z2tt3+B(5)*Z2«44B<6)*Z2«5 

BB(7)*Z2tt6 

D=Z 

CONTINUE 

INTEGRATION OF EQ, 5 FOR DENSITY BETHEEN 90ZZZ105 
A=90. 

FA=B(lHB(2)t(A-0QHB(3)»(A-00)tt2+B(4)*(A-0G)**3+B(5)<(A-0Q)t*4 
l+B(6)*(A-QQ)tt5 +B(7)*(A-OQ)l*6 
FA=FA<9 . 80655/ ( ( 1 , +A/6 , 356766E+3) M2) 
FA=FA/(TX+T1*(A-125.)+T3*<A-125,)«3 +T4*(A-125J**4) 
FD=BUHB(2)*(D-QQ)+B<3)*(D-QQ)**2+B<4)t(D-8Q)tt3+B<5)l<D-QQ)*»4 
HB(6)*(D-0Q)«5 +B(7)*(D-0Q)«6 
FD=FD*9 . 80665/ ( ( 1 , +D/6 ♦ 356766E+3 ) 112 ) 

FD=FB/( TX4T1KD-125. HT3*(D-125. )«3 +T4ND-125, )tt4) 

SRB4» SIHPSONS RULE QUADRATURE - G.F.KUNCIR 
DEFINITIONS - 

A = LOWER LIMIT OF INTEGRATION 

D = UPPER LIMIT OF INTEGRATION 

FUNC = INTEGRAND FUNCTION SUBPROGRAM 

EPS = RELATIVE ERROR CONVERGENCE CRITERION 

M = MAXIMUM NUMBER OF INTEGRATIONS 

R = RESULT OF INTEGRATION 

N = NUMBER OF INTEGRATI0NS9RIQSIRID TO FIND R 

NINT = 1 
N=0 

PREV=0. 

S0NE=(D-A)l(FA+FD)/2. 

N=N+1 

IF (N-M) 72,72,75 
NINT = 2 * NINT 
STWO=0. 

I€L= ( D- A ) /FLOAT (NINT ) 

DO 73 1=1, NINT r 2 
X=A+DEL*FLOAT(I) 

FX=B(1)FB(2)»(X-0Q)+B(3)»(X-QQ)»*2+B(4)*(X-QQ)«3+B(5)4(X-QQ)«4 
1+B(6)I(X-0Q)**5 +B(7)*(X-QQ)tt6 
FX=FXI9 » 80665/ ( ( 1 . +X/6 . 356766E+3 ) tt2 ) 
FX=FX/(TX+Tl*<X-125.)+T3t(X-125.>tt3 +T4*(X-125.)tt4) 

STHO=STWO+FX 

CUR=S0N£+4 . IDELISTWfl 

IF ( EPStABS < CUR ) -ABS ( CUR-PREV ) ) 74,75,75 

PREV=CUR 

S0NE=(S0N£+CUR)/4. 

GO TO 71 
R=CUR/3 

IF (Z-105 ► ) 44,76,44 
IF CD-105, ) 76,55,76 


JAC 38 
JAC 39 
JAC 40 
JAC 41 
JAC 42 
JAC 43 
JAC 44 
JAC 45 
JAC 46 
JAC 47 
JAC 48 
JAC 49 
JAC 50 


JAC 

51 

JAC 

52 

1 JAC 

53 

JAC 

54 

JAC 

55 

JAC 

56 

JAC 

57 

JAC 

58 

JAC 

59 

JAC 

60 

JAC 

61 

JAC 

62 

JAC 

63 

JAC 

64 

JAC 

65 

JAC 

66 

JAC 

67 

JAC 

68 

JAC 

69 

JAC 

70 

JAC 

71 

JAC 

72 

JAC 

73 

JAC 

74 

JAC 

75 

JAC 

76 

JAC 

77 

JAC 

78 

JAC 

79 

JAC 

80 

JAC 

81 

JAC 

82 

JAC 

83 

JAC 

84 

JAC 

85 

JAC 

86 

JAC 

87 

JAC 

88 

JAC 

89 

JAC 

90 

JAC 

91 
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c 

DENSITY FOR 902ZZ105 

JAC 

92 

c 


JAC 

93 

76 

DENS=3 . 46E -9*183 ■ *EM*EXP < -R/FK ) / ( TZ*28 . 878 ) 

JAC 

94 


DL=AL0G10(DEHS) 

JAC 

95 


PAR=AV*DENS/EM 

JAC 

96 


AN= ALOG 1 0 < 9N*EM*PAR/28 . 96 ) 

JAC 

97 


AA=AL0610 (QA*EM*PAR/28 . 96 > 

JAC 

98 


AHE=AL0G10(8HE*£M*PAR/28.96) 

JAC 

99 


A0= ALOG 1 0 ( 2 , *PAR* ( 1 . -EN/28 , 96 ) ) 

JAC 

100 


AQ2=AL0G1 0 ( PAW ( EH* ( 1 , +902 ) 728 , 96- 1 . ) ) 

JAC 

101 


AH=-0. 

JAC 

102 


RETURN 

JAC 

103 

C 


JAC 

104 

C 

TEMPERATURE AND MEAN MOLECULAR WEIGHT AT Z=105 KM 

JAC 

105 

C 


JAC 

106 


40 Z3=105. 

JAC 

107 


TZ3=TX+T1*(Z3'125. )+T3*(Z3-125)**3+T4*(Z3-125)**4 

JAC 

108 


ZM3=B(1)+B<2)t 5. +8(3)* 25.+B<4)» 125.+B(5>* 5.**4.+B(6)l 5. **5. 

JAC 

109 


1+B<7)* 5.1*6. 

JAC 

110 


D= 1 05 » 

JAC 

111 


GO TO 70 

JAC 

112 

C 


JAC 

113 

C 

DENSITY AT Z=105 KM 

JAC 

114 

C 


JAC 

115 

55 

BEN 1 =3 . 46E-9*1 83 . *ZM3*EXP ( -R/FK ) /< TZ3 *28 .878) 

JAC 

116 


PAR=AV*DEN1/ZM3 

JAC 

117 


J>I< 1 ) =QN*ZN3*P AR/28 . 96 

JAC 

118 


BI< 2) =PAR*(ZM3*(1. +802)728. 96-1.) 

JAC 

119 


BI(3)=2.*PAR*(l»-ZM3/28.96) 

JAC 

120 


DI(4)=QA*ZM3*PAR/28.96 

JAC 

121 


BI(5)=QHE*Zrt3*PAR/28.96 

JAC 

122 


IRZ-125.) 56,56.90 

JAC 

123 

56 

CONTINUE 

JAC 

124 

C 


JAC 

125 

C 

INTEGRATION OF EQ. 6 FOR DENSITY ABOVE 105 KM 

JAC 

126 

C 


JAC 

127 


R=0. 

JAC 

128 


01-125* 

JAC 

129 


Al=105. 

JAC 

130 

400 CONTINUE 

JAC 

131 


FAl=9.80665/((l»+Al/6.356766E+3)t*2) 

JAC 

132 


FA1=FA1/<TX+T1*(A1-125,)+T3*(A1-125.)«3+T4*(A1-125,)«4) 

JAC 

133 


FD1 =9 .80665/ ( ( 1 .+D1/6 . 356766E+3 > **2) 

JAC 

134 


IF(D1-125. ) 45,45,50 

JAC 

135 


45 FD1=FD1/(TX+T1*(D1-125.)+T3*(D1-125,)**3+T4*(D1-125.)**4) 

JAC 

136 


GO TO 51 

JAC 

137 

50 

FD1 = FD1/(TX+A2*ATAN(T1*(D1-125.)*(1.+4.5E-6*(B1-125.)**2.5)/A2)) 

JAC 

138 


TZ=TX+A2*ATAH(T1*(Z-125.)*(1,+4,5E-6«Z-125. )»*2.5)/A2) 

JAC 

139 

51 

N=0 

JAC 

140 


NINT = 1 

JAC 

141 


PREV=0 

JAC 

142 


SOWE= ( D1 -A1 ) * (FA1 +FD1 )/2 * 

JAC 

143 

81 

N=N+1 

JAC 

144 


IF (N-M) 82.82,85 

JAC 

145 
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82 MINT = 2 * MINT 
STH0=0, 

BEL=(Di-rtl )/FLOAT(HINT ) 

DO 83 I=1,NINT»2 
XI =Al+DEL*FLOAT ( I ) 

FX1=9. 80665/ ( ( 1 . 4X1/6 . 356764E+3) 112 ) 

IF(X1-125*) 46,46,52 

46 FXl=FXl/(TX+Tll(Xl-125>HT3t(Xl-125.)W3+T4t(Xl-125.)H4) 

GO TO 83 

52 FX1=FX1/(TX+A2*ATAN<T1*<X1-125J*(1,+4,5E-4*(X1-125J«2,5)/A2)) 

83 STH0=STH0+FX1 
CUR=S0HE+4,tDEL*STH0 

IF (EPStABS(CUR)-ABS(CUR-PREV) ) 84,85,85 

84 PREV=CUR 
S0NE=(S0NE+CUR)/4, 

GO TO 81 

85 R=CUR/3.+R 
IF(A1.E0.125.) GO TO 430 
D1=Z 

Al=125» 

GO TO 400 
430 CONTINUE 
C 

C DENSITY ABOVE 105 KH 

C 

DO 41 1=1,5 

DIT<I)=DI(I)t<TZ3/TZ)tt(l,+ALPHA(I))*EXP(-EI<I)IR/FK) 

41 CONTINUE 
D£NS=0 
DO 42 1=1,4 

DENS=DENS+E I ( I ) IDI T ( I ) /AV 
42 CONTINUE 

C 

C NEAN MOLECULAR HEIGHT FOR Z 105 KH 

C 

EH=DENS*AV/(DIT<mDIT(2)+DIT(3)+DIT(4)+DIT<5HDlT(6)> 

C 

C LOG DENSITY 

C 

DL=AL0G10(DENS) 

AN =AL0G10(DIT(1)) 

A02=AL0G10(DIT<2)) 


JAC 146 
JAC 147 
JAC 148 
JAC 149 
JAC 150 
JAC 151 
JAC 152 
JAC 153 
JAC 154 
JAC 155 
JAC 154 
JAC 157 
JAC 158 
JAC 159 
JAC 160 
JAC 161 
JAC 162 
JAC 163 
JAC 164 
JAC 165 
JAC 166 
JAC 167 
JAC 168 
JAC 169 
JAC 170 
JAC 171 
JAC 172 
JAC 173 
JAC 174 
JAC 175 
JAC 176 
JAC 177 
JAC 178 
JAC 179 
JAC 180 
JAC 181 
JAC 182 
JAC 183 
JAC 184 
JAC 185 
JAC 186 
JAC 187 


AO =AL0G10(DIT(3)) 
AA =AL0G10(DIT(4>) 
AHE=AL0G10(DIT(5)) 
IF(Z-500.) 47,48,48 

47 DIT(6)=10,M(-4) 

48 AH=AL0G10(D1T(6)) 

AN =AMAXl(-0., AN) 
A02=AMAX1(-0.,A02) 
AO =AMAXl(-0.» AO) 
AA =AMAXl(-0., AA) 
AHE=ANAX1(-0.,AHE) 


JAC 188 
JAC 189 
JAC 190 
JAC 191 
JAC 192 
JAC 193 
JAC 194 
JAC 195 
JAC 196 
JAC 197 
JAC 198 


AH =AHAXl(-0«, AH) 


JAC 199 
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RETURN 


JAC 200 

c JAC 201 

C TEMPERATURE AND DENSITY AT Z=500 KM JAC 202 

c JAC 203 

90 S=TX+A2IATAN(Tll375*t(l»+4*5E-6t375.tt2»5)/A2) JAC 204 

DI(6)=10.tt(73. 13-39. 4ML0810(S)+5.5tAL0G10(S)ML0G10(S)) JAC 205 

A 1=500. JAC 206 

IF<Z-500.) 49>60»60 JAC 207 

c JAC 208 

C INTEGRATION OF EO. 6 FOR DENSITY FOR Z 125 KM JAC 209 

c JAC 210 

49 A1=Z JAC 211 

60 FAl=9.80665/( ( 1 .+Al/6.356766E+3>tt2) JAC 212 

FA1=FA1/(TX+A2IATAN(T1*(A1-125.)I(1,+4.5E-6I(A1-125.)«2.5)/A2)) JAC 213 

[il=Z JAC 214 

IF(Z-500. ) 6b62,62 JAC 215 

61 Dl = 500. JAC 216 

62 FD1 =9 . 80665/ < <1 . +D1/6 . 356766E+3 ) «2 ) JAC 217 

FD1=FB1/(TXFA2*ATAN<T1*(D1-125,)*(1,+4.5E-6*(D1-125.)**2.5)/A2)) JAC 218 

JAC 219 

NINT = 1 JAC 220 

PREU=0 JAC 221 

SOME= < Dl-Al ) * (FA1+FD1 )/2» JAC 222 

91 N=NT1 JAC 223 

IF (N-M) 92 r 92 » 95 JAC 224 

92 NINT = 2 * NINT JAC 225 

STHO=0. JAC 226 

DEL=(D1-A1)/FLQAT(NINT) JAC 227 

DO 93 MrNINT»2 JAC 228 

X1=A1+DEL*FL0AT ( I ) JAC 229 

FX1=9 . 80665/ ( ( 1 . TX1/6 . 356766E+3 ) 142 ) JAC 230 

FXl=FXl/(TXFA2tATAN(Tl*<Xl-125.)»U.+4.5E-6*<Xl-125,)M2.5)/A2>> JAC 231 

93 STWO=STUO+FX1 JAC 232 

CUR-SONE+4 . IDELISTMO JAC 233 

IF ( EPSIABS ( CUR ) -ADS ( CUR-PREU ) ) 94»95»95 JAC 234 

94 PREV=CUR JAC 235 

SONE= Y 30WE+CUR ) /4 . JAC 236 

GO TO 91 JAC 237 

95 R=CUR/3. JAC 238 

0 JAC 239 

C TEMPERATURE AT Z 500 KM JAC 240 

0 JAC 241 

TZ=TX+A2IATAN(Tll(Z-125,)t(l.+4.5E-6*(Z-125.)*»2.5)/A2) JAC 242 

IFXZ-500. ) 63i64i64 JAC 243 

63 R=-R JAC 244 

0 JAC 245 

C DENSITY OF HYDROGEN FOR Z 500 KM JAC 246 

c JAC 247 

64 DIT(6)=DI(6)*(S/TZ)IEXP(-EI(6)»R/FK) JAC 248 

GO TO 56 JAC 249 

END JAC 250 

SUBROUTINE JACCH ( Z r PHIR > THET r PH t DH» TH ) JACC 1 

COMMON/COM JAC/XLAT i XLONG » SDA » SHA i D Y» R» T r EM JACC 2 

COMMON/IOTEMP/IOTEMlr IOTEM2>IU6>NMCOPfDDfXMJD»PHIl»PHI» JACC 3 
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NSAME.RP1. RD1. RT1. SP1. SD1. ST1. RU1. RV1. SU1. SV1.JACC 4 



♦ M . IDA. IYR. HI. PHIlRf THETlRrGfRI rH^CLAT rCLON .FIO.FIOB.AP. 

JACC 

5 


. IHRfMIWj HMOREfBXf HL» VL»DZ 

JACC 

6 

c 


JACC 

7 

c 

JACCH CALCULATES THE PRESSURE. DENSITY. AND TEHPERATURE AT A 

JACC 

8 

c 

POINT IN SPACE ABOVE 90 KM FOR A PARTICULAR TINE 

JACC 

9 

c 


JACC 

10 

c 

INPUT 

JACC 

11 

c 

Z = HEIGHT IN KH 

JACC 

12 

c 

PHIR = LATITUDE IN RADIANS 

JACC 

13 

c 

THET = LONGITUDE IN DEGREES (0 TO 360 DEGREES TURNING WESTWARD) 

JACC 

14 

c 

F10 = SOLAR RADIO NOISE FLUX <XE - 22 WATTS/MII2) 

JACC 

15 

c 

F10B = 81-DAY AVERAGE F10 

JACC 

16 

c 

AP = GEOHAGNETIC INDEX 

JACC 

17 

c 

N = MONTH (FOR YEARLY MEAN VARIABLES H IS SET TO 13) 

JACC 

18 

c 

IDA = DAY OF MONTH 

JACC 

19 

c 

IYR = YEAR 

JACC 

20 

c 

IHR = HOUR OF DAY (UNIVERSAL TIME) 

JACC 

21 

c 

MIN = MINUTE (UNIVERSAL TIME) 

JACC 

22 

c 

XMJD = MEAN JULIAN DAY (SET EQUAL TO ZERO FOR ANNUAL MEAN) 

JACC 

23 

c 

DD * DAY NUMBER WITH RESPECT TO JAN 0 OF YEAR IYR 

JACC 

24 

c 


JACC 

25 

c 

OUTPUT 

JACC 

26 

c 

PH = PRESSURE IN UNITS OF NT/NM2 

JACC 

27 

c 

DH = DENSITY IN UNITS OF K6/MM3 

JACC 

28 

c 

TH = TEMPERATURE IN KELVIN DEGREES 

JACC 

29 

c 


JACC 

30 

c 

DD = DAY NUMBER WITH RESPECT TO JAN 1 OF YEAR IYR 

JACC 

31 

c 


JACC 

32 

c 

REPLACEMENT OF SUBROUTINE VARIABLES TO INSURE NO CHANGES IN THEM 

JACC 

33 

c 


JACC 

34 


R = 0.31 

JACC 

35 


XLAT = PHIR 

JACC 

36 


XLONG = THET 

JACC 

37 


IF (M.E0.13) GO TO 50 

JACC 

38 

c 


JACC 

39 

c 

CALCULATE SOLAR DEC. AND HOUR ANGLE 

JACC 

40 

c 


JACC 

41 


CALL THE 

JACC 

42 

c 


JACC 

43 

c 

EXOSPHERIC TEMPERATURE 

JACC 

44 

c 


JACC 

45 


CALL TINF 

JACC 

46 


GO TO 75 

JACC 

47 


50 T = 1000.0 

JACC 

48 

c 


JACC 

49 

c 

TEMPERATURE. MOLECULAR WEIGHT. AND DENSITY WITHOUT SEASONAL 

JACC 

50 

c 

VARIATIONS 

JACC 

51 

c 


JACC 

52 


75 CALL JAC(Z.TH.DH) 

JACC 

53 


IF IM.EQ.13) GO TO 300 

JACC 

54 


YDA = 365.0 

JACC 

55 


J1 = MOD(IYM) 

JACC 

56 


IF (Jl.EQ.O) YDA = 366.0 

JACC 

57 
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Cl = SIN ((340. I YBA) * 0.0174532925 % (DD \ 100.0)) JACC 58 

IF (PHIR) 80,70(80 JACC 59 

70 C2 = 0,0 JACC 60 

GO TO 90 JACC 61 

80 C2 = (SIN(PHIR) « 2) * (PHIR / ABS(PHIR)) JACC 62 

c JACC 63 

C DENSITY WITH SEASONAL VARIATIONS JACC 64 

c JACC 65 

90 Z90 = Z - 90,0 JACC 66 

DLRHO = 0,02 * Z90 * EXP<-0.045 * Z90) * Cl * C2 JACC 67 

DH = DH t EXP (DLRHO) JACC 68 

c JACC 69 

C MOLECULAR HEIGHT WITH SEASONAL VARIATION JACC 70 

c JACC 71 

IF (Z - 120,0) 100,100,150 JACC 72 

100 EM = EM F 0.006 * Z90 * Cl JACC 73 

GO TO 250 JACC 74 

150 IF (Z - 230.0) 200,250,250 JACC 75 

200 DEM = EXP(-0, 02424 * Z90) * (0,0316 * Z90 - 0.0002257 t Z90 * Z90)JACC 76 

EM = EM + DEM t C1I0.5 JACC 77 

c JACC 78 

C TEMPERATURE WITH SEASONAL VARIATIONS JACC 79 

c JACC 80 

250 IF (Z-260,0) 270,300,300 JACC 81 

270 Z110 = Z - 110.0 JACC 82 

DTH = -2.291753 * Z110 + 0,02154336 * ZllOtZllO- 4.1766671E-05 * JACC 83 

t (Z110 *1 3) JACC 84 

DTH = EXP(-0. 290655 * SQRT(ABS(Z110)))» DTH JACC 85 

TH = TH +(DTH * Cl * C2 *TH) / 100.0 JACC 86 

c JACC 87 

C DENSITY IN METRIC UNITS AND PRESSURE CALCULATED JACC 88 

c JACC 89 

300 DH = DH t 1000.0 JACC 90 

PH =( (DH * 8.31432 * TH) / EM) t 1000.0 JACC 91 

RETURN JACC 92 

JACC 93 

SUBROUTINE NORMAL (D1,B2) NORM 1 

C PRODUCES 2 RANDOM NUMBERS, Dl, D2, PICKED FROM A NORMAL DIST, NORM 2 

C WITH ZERO MEAN AND UNIT VARIANCE NORM 3 

REAL L NORM « 

50 X = RAND(O) MW* 5 

Y = 2*RAND<0) - 1 NORM 6 

XX = Xtt2 NORM 7 

YY--YH2 NORM 8 

S = XX + YY NORM 9 

IF (S-l) 51,51,50 NORM 10 

51 L = SORT (-2<AL0G(RAND(0) ) )/S NORM 11 

Dl = (XX-YY)tL NORM 12 

D2 = 21XIYTL NORM 13 

RETURN NORM 14 

END NORM 15 

SUBROUTINE PDTUV (PSP, DSP, TSP, CLAT, CLON, IH, PS, DS, TS, PDTU 1 

$ DPX, DPY, DTX, DT Y , DP2X , BP2Y , DPX Y > PDTU 2 

C INTERPOLATES STATIONARY PERTURBATIONS ON LATITUDE AND LONGITUDE PDTU 3 
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C AT HEIGHT IH p DTU 4 

DIMENSION PSP(8»10fl2)>DSP(8»10»12)tTSP(8»10rl2) PDTU 5 

IF < IH»LT *52) Gfl TO 10 p DTU 4 

ir (IH.GT.84) GO TO 20 ppfU 7 

C HEIGHT INDEX K PDTU 8 

K - ((IH+4)/B) - 4 pfljU 9 

GO TO 30 PDTU iq 

10 K = (IH-20I/10 pppy jj 

GO TO 30 PDTU 12 

20 K = 8 PDTU 13 

30 XLON = CLON pypy 14 

IF (CL0N.LT.10.) XLON = 360. I CLON PDTU 15 

C LOWER LONGITUDE INDEX J PDTU 14 

J = INK (XLON + 20.1/30.) PDTU 17 

c W-M - RELATIVE LONGITUDE DEVIATION FROM CORNER REFERENCE LOCATIONPDTU 18 

DLON = (XLON - 30.CJ + 20,)/30. PDTU 1 ? 

C UPPER LONGITUDE INDEX JP PDTU 20 

JP = J+l PDTU 21 

IF ( JP# GT ♦ 12) JP=1 PDjIj 22 

C LOWER LATITUDE INDEX I PDTU 23 

I = INT((CLAT T 110# >/ 20 # ) PDTU 24 

C UPPER LATITUDE INDEX IP ppjjj 25 

IP = 1+1 PDTU 26 

IF (IP.GT.10) IP=10 PDTU 27 

c H-AT * RELATIVE LATITUDE DEVIATION FROM CORNER REFERENCE LOCATION PDTU 28 

DLAT = (CLAT-20.II + 110J/20. PDTU 29 

C PRESSURE LAT-LON INTERPOLATION PDTU 30 

PS=PSP(KfI»J)+(PSP(KfIP*J)-PSP(K»I» J))tDLATKPSP(K»I» JP)-PSP(KrIf JPDTU 31 
l))*H.ON+(PSP(KrIP»JP)-PSP(K»I»JP)-PSP(KfIPiJ)+PSP(K»IfJ))HDLAT* PDTU 32 

2DL0H PDTU 33 

C OENSITY LAT-LON INTERPOLATION PDTU 34 

DS=DSP(K»If J)+(DSP(K»IP»J)-DSP(KfI»J))IDLAT+(DSP(K»I»JP)-DSP(KfIrJPDTU 35 
l))<DLONf(DSP(K>IP»JP)-DSP(K*I»JP)-DSP(KiIP»J)-U)SP(K»I»J))tDLATt PDTU 36 
2DL0N PDTU 37 

C TEMPERATURE LAT-LON INTERPOLATION PDTU 38 

TS=TSP(K>I.J)+(TSP(K»IPTJ)-TSP(KfI» J))<DLAT+(TSP(K»I»JP)-TSP(XfIf JPDTU 39 
l))4DL0N+(TSP(Kf IP.JP)-TSP(K»I>JP)-TSP(K»IP»J)+TSP(KfIf J))tDLAT> PDTU 40 

2DL0N PDTU 41 

C DPX - DP/DX FOR GEOSTROPHIC HINDS PDTU 42 

DPX = (PSP(K»I»J) - PSP(K»I»JP)) / 6 . PDTU 43 

DPX = DPX + ((PSP(K»IP»J) - PSP(K»IP»JP))/ 6 . - DPXIIDLAT PDTU 44 

C DPT - DP/DT FOR GEOSTROPHIC HINDS PDTU 45 

DPY=(PSP(K,IP,J)-PSP(K,I,J))/4. PDTU 46 

DPY = DPY + ((PSP(K»IP»JP) - PSP(K»I»JP))/4, - DPYXDLON PDTU 47 

C DTX - DT/DX FOR THERMAL HINDS PDTU 48 

DTX = (TSP(K.I.J) - TSP(K.KJP)) / 6 . PDTU 49 

DTX = DTX + «TSP(K»IP.J) - TSP(K*IP,JP))/ 6 . - DTXXDLAT PDTU 50 

C DTY - DT/DY FOR THERMAL HINDS PDTU 51 

DTY = iTSP(KKP.J) - TSP(KfKJ)) / 4. PDTU 52 

DTY = DTY + ((TSP(K.IPiJP) - TSP(K,I,JP))/ 4 . - DTYXDLON PDTU 53 

IF (IP.GT.9) GO TO 90 PDTU 54 

DPXY = (PSP(KflPrJ) - PSP(K»IP»JP) - PSP(K»IfJ) T PSP(K»If JP))/24,PDTU 55 
Jx = J ' 1 PDTU 56 

IF (JX.LT.l) JX = JX + 12 PDTU 57 
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IY = I - 1 PDTU 58 

DP2X = (PSP(K» I » JX) - PSP(KrIfJP))/6. PDTU 59 

DP2X = DP2X + ( (PSP(KfIP»JX) - PSP(K»IP> JP))/6. - DP2X)IDLAT PDTU 60 

DP2Y = (PSP(KiIP>J) - PSP(KfIY,J))/4. PDTU 61 

DP2Y = DP2Y + ( (PSP(KjIPjJP) - PSPXKrlYr JP) )/4»- DP2Y)4DL0N PDTU 62 

RETURN PDTU 63 

90 DP2X = 0. PDTU 64 

DP2Y = 0. PDTU 65 

DPXY = 0. PDTU 66 

RETURN PDTU 67 

END PDTU 68 

SUBROUTINE PERTRB PERT 1 

CONNON/IOTENP/IOTEHliIOTEN2>IU6jNNCOPtDD»XHJD»PHIl»PHI»NSANE» PERT 2 

4PL1>DL1.TL1jSPL1i>SDL 1 >STLl>ULlrVLlrSULl>SVLl,HN>IDA,IYRj PERT 3 

lPHfPLATf PERT 4 

4 PL0NrGrR>CH»CLAT>CLON»FlO>FlO8*AP>IHRfHIHrNHORErDXfHL»ULrDZr PERT 5 

2BfEPS>IOPPfLOOK>IET»FLAT>PSl»DSlfTSlfUShVSl'SPSlfSDSl» PERT 6 

3STS1 iSUSl »SUS1 (UDS1 > VDS1 fUDLl » VDL1 »UDS2rUDS2»UDL2f VDL2 PERT 7 

CONHON /CONPER/SP2)SD2fST2fP2fD2»T2>U2fV2»SU2fSM2»CPf PERT 8 

1PS2» DS2« TS2fUS2rVS2» PERT 9 

2PL2*PL2»TL2>IH2*VL2» PERT 10 

3SPS2«SDS2fSTS2!SUS'2»SVS2f PERT 11 

4SPL2 « SDL2 f STL2 > SUL 2> SUL2 PERT 12 

COHrtQN/WINCQH/ DUHUlbT PERT 13 

DION = ABS(CLQN-PLON) PERT 14 

PI = 3.1415927 PERT 15 

IFGBLON.GT.PI) DLON = 2.4PI - DLON PERT 16 

DX = R*SQRT((CLAT-PLAT)t*2 + (COS(CLAT)*(DLON ))«2) PERT 17 

C DX IS HORIZONTAL DISTANCE BETMEEN POSITIONS PLAT rPLON AND CLAT»CLOPERT 18 

AH = 900. PERT 19 

BH x 6. PERT 20 

C HORIZONTAL UAUELENGTHj KH PERT 21 

HLL= AH + BH4CH PERT 22 

DPHI = (90. - ABSIPHIl 1)442 PERT 23 

DHGT = 0.22 + 0. 002584 (SBRT(ABS(CH)4431) PERT 24 

IF (DH6T.GT.5,) DHGT = 5. PERT 25 

VDS = (11,0 - 2,102E-44BPHI)4BHGT PERT 26 

VTS = (3.0 + 5.146E-44DPHI14DH6T PERT 27 

VUS x (6.2 - 3 i 615E-44DPHI 14DH6T PERT 28 

VDL = (20,7 - 1 .346E-34DPHI 14DH6T PERT 29 

VTL = 7.34DHGT PERT 30 

VUL = (31.2 - 3 . 503E-34DPHI ) 4DH6T PERT 31 

HLS x 20, + .01254CH4CH PERT 32 

IF(HLS,GT.400.) US = 400, PERT 33 

HLS x (DX/HLSIW2 PERT 34 

HLL = (DX/HLL1442 PERT 35 

R0S=S0RT(HLS+(DZ/VDS>442) PERT 36 

IFXRDS.LE, 100. )G0 TO 10 PERT 37 

RDS-O. PERT 38 

60 TO 20 PERT 39 

10 RDS=1 ,/EXPXRDS) PERT 40 

20 RTS r SGRT ( HLSF< DZ/UTS >442 ) PERT 41 

IF(RTS.LE.10O.)G0 TO 30 PERT 42 

RTS=0. PERT 43 
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GO TO 40 PERT 44 

30 RTS=1*/EXP<RTS) PERT 45 

40 RVS=SQRT <HLS+( DZ/VUS )tt2) PERT 46 

IF(RVS.LE,100.)60 TO 50 PERT 47 

RVS=0. PERT 48 

60 TO 60 PERT 4? 

50 RVS=1./EXP<RVS) PERT 50 

60 RDL=SQRT<HLL+(DZ/VTL)M2) PERT 51 

IF(RDL>LEtlOOt)GO TO 70 PERT 52 

RDL=0. PERT 53 

60 TO 80 PERT 54 

70 RDL=1»/EXP(RDL) PERT 55 

80 RTL=SQRT<HLLKDZ/VTL)**2) PERT 56 

IF<RTL.LE.100JGO TO 90 PERT 57 

RTL=0 » PERT 58 

60 TO 100 PERT 59 

90 RTL=1./EXP(RTL) PERT 60 

100 RVL=SQRT ( HLL+ ( DZ/VOL ) 112 ) PERT 61 

IF(RVL,LE,100,)60 TO 110 PERT 62 

•M- 8 ®* PERT 63 

GO TO 120 PERT 64 

110 ROl=l*/EXP(RVL) PERT 65 

120 CONTINUE PERT 66 

CALL C0RLAT<ASrBS>CS>DSfESrFSr6S>HSrAISrAJSfAKSfSPSl«SPS2rSDSl« PERT 67 

1 S0S2fSTSlfSTS2.SUSl»SUS2fSVSl,S0S2fUDSl,U0S2»VDSl.VDS2fR0S»RTSf PERT 68 

2RVS) PERT 69 

CALL C0RLAT(ALrBL>CL»DL>EL>FL»6L»HLrAIL>AJL>AKL»SPLl»SPL2»SDLlF PERT 70 

1 SDL2f STL1 »STL2> SUL1 rSUL2>SVLl f SVL2rUDLl rUDL2r VDL1 f VDL2i PERT 71 

2RBLt RTL»RVL) PERT 72 

CALL NORMAL (ZDf ZT> PERT 73 

DS2=AS*DS1+8S*ZD PERT 74 

TS2=CStTSl +DSIBS2+ES4ZT PERT 75 

PS2=DS2+TS2 PERT 76 

CALL NORNAL<ZO»ZT) PERT 77 

US2=FSIUS1 +6SJBS2+HSIZD PERT 78 

VS2=AIS*VS1TAJS*DS2+AKS*ZT PERT 79 

CALL NORHAL(ZDfZT) PERT 80 

DL2=AL*DL1+BL«ZD PERT 81 

TL2=CLITLl+DLtDL2+EL«ZT PERT 82 

PL2=BL2+TL2 PERT 83 

CALL WOftNAL(ZDfZT) PERT 84 

UL2=FL*UL1+6LIDL2+HUZD PERT 85 

VL2=AIL*VL1+AJL*0L2+AKL*ZT PERT 86 

P2=PS2+PL2 PERT 87 

D2=DS2+DL2 PERT 88 

T2--TS2+TL2 PERT 89 

U2=US2+UL2 PERT 90 

V2=VS2+VL2 PERT 91 

UDL1=0DL2 PERT 92 

UDS1=0DS2 PERT 93 

VDL1=VDL2 PERT 94 

VDS1=VDS2 PERT 95 

RETURN PERT 96 

END PERT 97 
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SUBROUTINE PHASE(0bXbD2fX2fD>X) 

PHAS 

1 


PER = 870. 

PHAS 

2 


IF (X2-X1) 20r 10» 20 

PHAS 

3 

10 

D = D1 

PHAS 

4 


RETURN 

PHAS 

5 

20 

DA = D1 

PHAS 

6 


DB = D2 

PHAS 

7 


PER2 = PER/2, 

PHAS 

8 


IF ( ABS ( DB-DA ) , LE . PER2 )G0 TO 30 

PHAS 

9 


IF (DA.LT.PER2) DA = DA + PER 

PHAS 

10 


IF (DB.LT.PER2) DB = DB + PER 

PHAS 

11 


30 DA = DA 4 (DB - DA)*(X - X1)/(X2 - XI) 

PHAS 

12 


IF (DA.GT.PER) DA = DA - PER 

PHAS 

13 


IF(DA.LT.O.)DA=DA+PER 

PHAS 

14 


D = DA 

PHAS 

15 


RETURN 

PHAS 

16 


END 

PHAS 

17 


SUBROUTINE QBOGEN 

QBOG 

1 

C., 

, . .CONFUTES OBO VALUES PQ»DQ»TQ»UQ»VQ AT HEIGHT Hf LATITUDE PHI 

0B06 

2 

C 

ON JULIAN DAT XHJD FROM ARRATS OF AMPLITUDES PAOfDAOtTAQi 

QBOG 

3 

C 

UAQiVAQ AND PHASES PDQ • DDQ r TDB » UDfl f VDQ . 

QBOG 

4 


CONHON/IOTEHP/IOTEHbIOTEH2fIU6»NHCOP>DODfXHJDiPHIbPHb 

QBOG 

5 


, NSAHEfRPlf RD1> RTb SPb SDlr STb RU1* RVb SUli 

SVbQBOG 

6 


* HN» IDAf IYR* Hb PHIlR»THETlRfG f RbH»PHIR>THETR>F10,F10B,APi 

, QBOG 

7 


. IHR?HIN>NN0RE>DXfHLfVLfD2 

QBOG 

8 


CONHON/PDTCOH/IU4iHONTH»IOPR»PG(18»19bTG<18?19bB6(18>19) 

QBOG 

9 


. ,PSP(8»10»12) 

QBOG 

10 


, fDSP(8fl0»12)»TSP(8il0tl2)fPA8(17f5)fDA0U7»5)»TAfl(17»5)r 

QBOG 

11 


, PDO(17f5)jDDQ(17f5)rTDQ(17>5)tPR(20»lO)»DR(2OflO)»TR(2Ofl0)f 

QBOG 

12 


,UAQ(17f5) fVAQ(17»5)fUDB(17f5)rVDQ(17'5)jUR(25jl0)«VR(25fl0) 

QBOG 

13 


, »PQ»DQ*TQ*U0fV0 

QBOG 

14 


, fPA»DA»TAfUA»VA»I0P8 

QBOG 

15 


IF (XHJD. GT.O. AND, IOPO.EQ.l) GO TO 10 

QBOG 

16 

C 

SETS 980 VALUES TO ZERO FOR ANNUAL NEAH 

QBOG 

17 


PQ =0. 

QBOG 

18 


DQ=0, 

QBOG 

19 


T0=0 . 

QBOG 

20 


UQ=0. 

QBOG 

21 


V0=0. 

QBOG 

22 


RETURN 

QBOG 

23 

C 

LONER HEIGHT INDEX 

QBOG 

24 


10 IH = INT((H-5.)/5.) 

QBOG 

25 


IF (IH.LT.l) IH=1 

QBOG 

26 

C 

UPPER HEIGHT INDEX 

QBOG 

27 


IP = IH + 1 

QBOG 

28 


IF (IP.GT.17) IP = 17 

QBOG 

29 


PHA = ABS (PHI) 

QBOG 

30 

c 

LONER LATITUDE INDEX 

QBOG 

31 



QBOG 

32 


' JL = IMT < < PHA + 10. >/20. ) 

QBOG 

33 

c 

UPPER LATITUDE INDEX 

QBOG 

34 


JP = JL + 1 

QBOG 

35 


IF (JL.LE.O) JL=1 

QBOG 

36 


IF (JP.GT.5) JP=5 

QBOG 

37 
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C JULIAN DAY FOR JAN 0 , 1966 QBOG 38 

XNJDO = 2439126 QBOG 39 

C TINE RELATIVE TO JAN 0» 1966 QBOG 40 

TNJD = XNJD-XNJDO QBOG 41 

C 2*PI/PERI0D» PERIOD = 870 DAYS QBOG 42 

PER = 870, QBOG 43 

TP = 6.2831853/PER QBOG 44 

C LONER HEIGHT QBOG 45 

HI = 5. + 5.IIH QBOG 46 

C LOHER LATITUDE QBOG 47 

PHI J = 20. 4JL - 10, QBOG 48 

C UPPER LATITUDE QBOG 49 

PHIP = 20.IJP-10, QBOG 50 

C INTERPOLATES QBO PrDfT AMPLITUDE ON LATITUDE AT LONER HEIGHT QBOG 51 

CALL INTERZ(PAQ(IHr JL)*DAQ(IH» JLhTAQdHf JL)rPHIJrPAQ(IHrJP)r QBOG 52 

lDAQdHfJPMAQ(IHfJP) f PHIPfPAl»DAl»TAlfPHA) QBOG 53 

C UPPER HEIGHT QBOG 54 

HP = 5.+5.4IP QBOG 55 

C INTERPOLATES QBO PfDfT AMPLITUDE ON LATITUDE AT UPPER HEIGHT QBOG 56 

CALL INTERZ(PAQ(IP»JL)»DAOdPfJL)»TAQdPfJL)fPHIJ»PAQdPFJP)f QBOG 57 

2DAQdPfJP)»TAQdPf JP)»PHIPfPA2fDA2iTA2fPHA) QBOG 58 

C INTERPOLATES QBO PfDfT AMPLITUDE ON HEIGHT AT LATITUDE PHI QBOG 59 

CALL INTERZ<PAbDAl>TAlFHlFPA2fDA2FTA2rHPFPArDAfTArH) QBOG 60 

C INTERPOLATES QBO P»D(TfU(V PHASE ON LATITUDE AND HEIGHT QBOG 61 

CALL PHASE(P0Q!IHrJL)(PHIJ.PD8dHrJP)fPHIP*PDhPHA) QBOG 62 

CALL PHASE (DDO(IH» JL ) f PHI J? DDOTIHf JP) r PHIPt DD1 »PHA) QBOG 63 

CALL PHASE<TDQ(IHfJL)»PHIJfTDQ(IHfJP)fPHIPfTD1iPHA) QBOG 64 

CALL PHASE<PDQdPrJL)rPHIJrPDfldPrJPbPHIPrPD2rPHA) QBOG 65 

CALL PHASE<D0Q(IPfJL)»PHIJ»DDQdPFjP)fPHIPiDD2»PHA) QBOG 66 

CALL PHASE! TDQdP(JL) »PHI JfTDQ(IP»JP)»PHIPfTD2fPHA) QBOG 67 

CALL PHASE(PDl>HIfPD2fHP»PDfH) QBOG 68 

CALL PHASE(DD1»HI*DD2fHP»DD»H) QBOG 69 

CALL PHASE(TD1jHI>TD2(HP(TD*H) QBOG 70 

CALL PHASE Y UDQ < IH f JL) » PHI J* UDQ< IH » JP ) , PHIP » UD1 » PHA ) QBOG 71 

CALL PHASE! VDQdH»JL)»PHIJ(VDQdHfJP)fPHIPfVDlf PHA) QBOG 72 

CALL PHASE<UDQ(IP(JL)fPHIJfUDQ(IP t JP)fPHIP»UD2FPHA) QBOG 73 

CALL PHAS£(VDQ!IPf JL)fPHIJ(VDQ!IPrJP)(PHIPfVD2fPHA) QBOG 74 

CALL PHASE!UDlfHdUD2.HP»UD»H) QBOG 75 

CALL PHASE! VD1fHI(VD2»HP»VD>H) QBOG 76 

C INTERPOLATES QBO HIND AMPLITUDE ON LATITUDE AT LONER HEIGHT QBOG 77 

CALL INTERN(UAQ(IH»JL)»VAQ(IHf JL)»PHIJ>UAQ(IHf JP)»VAQ(IHf JP)» QBOG 78 

5PHIP»UA1»VA1(PHA) QBOG 79 

C INTERPOLATES QBO HIND AMPLITUDES ON LATITUDE AT UPPER HEIGHT QBOG 80 

CALL INTERH<UAQ<IP(JL)fVAQ(IP(JL)(PHIJ.UAQdP»JP).VAQdP»JPb QBOG 81 

6PHIPfUA2fVA2(PHA) QBOG 82 

C INTERPOLATES QBO HIHD AMPLITUDES ON HEIGHT AT LATITUDE PHI QBOG 83 

CALL INTERN!UA1(VA1fHI(UA2»VA2»HP»UA»VA»H) QBOG 84 

C EVALUATES QBO VALUES FROM INTERPOLATED AMPLITUDES AND PHASES QBOG 85 

PQ=PAICOS ( TPt ( TM JD-PD ) ) QBOG 86 

DO=DAICOS! TPI ! TMJD-DD ) ) QBOG 87 

TQ=TAICOS ( TPt ! TM JD-TD ) ) QBOG 88 

UQ=UAICOS(TPt<TMJB-UD>) QBOG 89 

VQ=VA*COS(TP*(TMJD-VD)) QBOG 90 

RETURN QBOG 91 


D-39 


GBOG 92 

FUNCTION RAND(XO) RAM 1 

C PRODUCES A RANDOM NUMBER FROM A UNIFORM DIST. FROM 0 TO FI RAND 2 

INTEGER XO RAND 3 

IF (XO.NE.O) X = XO/262144* RAND 4 

X = X*509 RAND 5 

X = X - INT(X) RAND 6 

RAND = X RAND 7 

RETURN RAND 8 

END RAND 9 

SUBROUTINE RIG RIG 1 

CONHOH/'IOTEHP/IOTEH1pIOTEH2pIUGpNMCDPpDDpXHJDpPHI1pPHIp RIG 2 

, NSAMEpRPIp RDIp RTlr SPIp SDIp STIp RUIp RVIp SU1. SVIpRIG 3 

$ MNp IDAp IYRp H1p PHIIRpTHETIRpGpRIpHpPHIRpTHETRpFIOpFIOBpAPp RIG 4 

♦ IHRpNINpNMOREpDXpHLpVLpDZpBpEPS RIG 5 

1RP1SpRD1SpRT1SpRU1SpRV1SpSP1SpSD1SpST1SpSU1S,SM1S, RIG 6 

2UPS1 jMDSI pUDLI pVDLI »UDS2pVDS2pUDL2pVDL2 RIG 7 

c GRAVITY G AT Hp LATITUDE PHIR (RADIANS) RIG 8 

C RADIUS RI FROM CENTER OF EARTH TO HEIGHT H RIG 9 

C B = POLAR EARTH RADIUS p EPS = ECCENTRICITY RIG 10 

CPHI2 = CQS(PHIR) ** 2 RIG 11 

C EARTH RADIUS RIG 12 

RI = B / SORT ( 1 ♦ - EPS * CPHI2) RIG 13 

C C2PHI = C0S(2*PHIR) RIG 14 

C2PHI = 2. * CPHI2 - Ip RIG 15 

C C4PHI = C0S(4*PHIR) RIG 16 

C4PHI = 8p * CPHI2 * (CPHI2 - 1.) + 1. RIG 17 

p g SURFACE RIG 18 

6 = 9.80616 * (1. - 0.0026373 * C2PHI + 0.0000059 * C2PHI * C2PHDRIG 19 

C EFFECTIVE RADIUS RIG 20 

RE = 2. I G / (3.085462E-3 + C2PHI » 2.27E-6 - C4PHI * 2.E-9) RIG 21 

C G AT HEIGHT H RIG 22 

6 = G / (1. + (H / RE)) » 2 RIG 23 

C RADIUS AT HEIGHT H RIG 24 

RI = RI + H RIG 25 

END RIG 26 

SUBROUTINE RTERP(HpPHIpPRpDRpTRpPpDpT) RTER 1 

C CONFUTES RANDOM PERTURBATION STANDARD DEVIATIONS PpBpT AT RTER 2 

C HEIGHT H (KM) p LATITUDE PHI (DEGREES) FROM SIGMA ARRAYS RTER 3 

C PR p DR p AND TR RTER * 

DIMENSION PR(20p10)pDR(20p10)pTR(20p10> RTER 5 

C I = LONER HEIGHT INDEX RTER 6 

IF (H.LT.95.) I = INT((H-20.)/5.) RTER 7 

IF (H.GE.95.) I = 14 + INT((H-80.)/20.) RTER 8 

IP = III RTER 9 

IF (IP.GT.20) IP = 20 RTER 10 

C LONER LATITUDE INDEX RTER 11 

J = INT((PHI I 110.J/20.) RTER 12 

JP--J+1 RTER 13 

IF (JP.GT.10) JF-10 RTER 14 

IF (I.GT.14) GO TO 10 RTER 15 

C LOWER HEIGHT FOR PRpTRpDR ARRAYS RTER 16 

Zl=5,*I+20. RTER 17 

GO TO 20 RTER 18 
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10 Z1=20,*(I-10> 

20 IF (IP,GT.14) GO TO 30 
C UPPER HEIGHT FOR PR,DR,TR ARRAYS 
Z2=5.IIPF20. 

GO TO 40 

30 Z2=20,*( IP-10) 

40 PHI1=-310,+20.*J 
PHI2=-110,i20,*JP 

c INTERPOLATE ON LATITUDE AT LONER HEIGHT 

CALL INT£RZ<PR(I,J),DR(I,J>rTR<IfJ), PHIlrPRII.jp), BR(I.Jp), 

1 TR(I, JP) ,PHI2»PI ,D1 r T1 rPHI ) 

C< . . i .INTERPOLATE ON LATITUDE AT UPPER HEIGHT 

CALL INTERZ(PR<Ip.J),DR<JP,J)»TR(lPrJ>rPHIl,PR(IP,JP),[IR(IPrJP) 
1 TR(IP.JP) ,PHI2,P2,D2,T2.PHI) 

C..., .INTERPOLATION ON HEIGHT USING LATITUDE INTERPOLATED VALUES 
CALL INTERZ(Pl,Bl,Tl,Zl,P2,D2,T2,Z2,P»BrT.H> 

RETURN 

END 

SUBROUTINE RTRAN 
COMMON/IOTEMP/IOTEM1 r I0TEM2, IUG 
COMHON/COTRAN/NDATA ( 1 9 ) . I M 2 r 1 3 - 1 4 ( 1 0 ) , 1 5 

c ENTRY POINT TO READ STATIONARY PERTURBATION DATA, AND 

C RANDOM PERTURBATION DATA IN SETUP 

INHERED, 

READ<IUG,100,END=3) NDATA 
100 FORMAT (A2r 1917) 

RETURN 
ENTRY RTRAN1 

c ENTRY POINT TO READ GROVES DATA IN SETUP 

IWHERE=2H1 . 

READ(IUG,100,END=3) NDATA 
I1=NDATA(1) 

I 2- NDATA (2) 

I3=NDATA(3) 

I5=NDATA(14) 

DO 1 1=1,10 

1 I4<I)=NDATA(I+3> 

RETURN 

ENTRY RTRAN2 

c ENTRY POINT TO READ GBO PARAMETERS IN SETUP 

I WHERE-2H2 . 

READ! IUG, 100, EN0=3) NDATA 
I1=NDATA(1) 

I3=NDATA(2) 

DO 2 1=1,10 

2 I4(I)=NDATA(2II) 

RETURN 

3 WRITE<6,200) IUG, INHERE 

200 FORMAT! '1 PREMATURE END-OF-FILE FOUND ON UNIT M2/ 

Z'O CALLED FROM SUBROUTINE RTRAN *,A2) 

STOP 

END 

SUBROUTINE SCIMOIUNPOP) 

C..,,, COMPUTES VALUES P<D,T,U,V AND SHEAR DUH,DVH FROM INPUT AND 


RTER 19 
RTER 20 
RTER 21 
RTER 22 
RTER 23 
RTER 24 
RTER 25 
RTER 26 
RTER 27 
RTER 28 
RTER 29 
RTER 30 
, RTER 31 
RTER 32 
RTER 33 
RTER 34 
RTER 35 
RTER 36 
RTRA 1 
RTRA 2 
RTRA 3 
RTRA 4 
RTRA 5 
RTRA 6 
RTRA 7 
RTRA 8 
RTRA 9 
RTRA 10 
RTRA 11 
RTRA 12 
RTRA 13 
RTRA 14 
RTRA 15 
RTRA 16 
RTRA 17 
RTRA 18 
RTRA 19 
RTRA 20 
RTRA 21 
RTRA 22 
RTRA 23 
RTRA 24 
RTRA 25 
RTRA 26 
RTRA 27 
RTRA 28 
RTRA 29 
RTRA 30 
RTRA 31 
RTRA 32 
RTRA 33 
RTRA 34 
SCIM 1 
SCIM 2 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


6 


ARRAYS IN COMMON PDTCOM, INPUT TO SCIMOO IS* 

6 = GRAVITY AT POSITION RI = RADIUS AT HEIGHT H 
PHIR = LATITUDE (RADIANS) THETR = LONGITUDE (RADIANS) 
FIO = F10.7 SOLAR FLUX FlOB = MEAN F10.7 FLUX 

AP = SOLAR-GEOMAGNETIC A SUB P INDEX 
MN/IDA/IYR = DATA (IYR = FULL YEAR-1900) 

IHRZMIN = TIME HI = PREVIOUS HEIGHT 

PHI1R = PREVIOUS LATITUDE THET1R = PREVIOUS LONGITUDE 
RPbRDliRTl = PREVIOUS RANDOM PERTURBATIONS 
SPhSDhSTl = PREVIOUS RANDOM STANDARD DEVIATIONS (SIGMAS) 
RUlrRVl = PREVIOUS RANDOM HINDS 
SUlfSVl = PREVIOUS RANDOM HIND SIGMAS 
COMMON/ I PRTP/ IPRT 

COMMON/ 1 OTEMP/IOTEM1 » IOTEM2 f I UG > NMCOP ) DD » XMJD rPHIl » PH1 1 
,NSAMEfRPlL»RDlL>RTlL»SPlL)SDiLfSTlL)RUiLfRVlLfSUlL»SVlL» 

$ MNi IDA) IYR) HI) PHI1R* THET1R )G )RI » H»PHIR* THETR»F10»F10B* APr 
, IHR)MIN)NMORE)DX)HL)VL)DZ)B)EPS)IOPPfLOOF)IETrFLAT) 
1RP1S)RD1S)RT1S)RU1S)RV1S)SP1S)SD1S)ST1S)SU1S)SV1S) 

2UDS1 ) VDSI tUDLI ) VDL1 )UDS2) VDS2)UDL2)VDL2 
C0MM0N/PDTC0M/IU4)M0NTH)I0PR)PG(18)19)fTG(18)19))BG(18)19) 

, )PSP(8»10)12) 

, »DSP(8)10)12) )TSP(8»10rl2)fPAO(17)5) )DA0(17»5 )tTA0(17»5)» 

. PDO(17)5))DDQ(17f5)tTDfl(17)5))PR(20)10))DR<20)10))TR(20»10)) 
.UAQ(1 7)5) )VAQ< 17)5) )UDO( 17)5) )VDQ( 17)5) )UR(25»10))VR(25) 10) f 
. ,DO)TO)UO)VQ)POA)DOA)TOA)UA)VA)IOPO) 
1PLP(25)10))DLP(25)10))TLP(25)10)) 
2ULP(25)10>)VLP(25)10))UDL(25)10)) 
3VDL(25)10)*UDS(25)10))VDS(25)10) 


PO 


SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 


COMMON /C4/ 6LAT(16))GL0N(16>)NG)P4D<16)26>)D4D(1A)26))T4D(16)26))SCIM 
, SP4( 16)26) ) SD4( 16)26) )ST4( 16)26) )TH£T1)THET)DUMMY SCIM 

COMMON/COMPER/SPH)SDH)STH,PRH)DRH)TRH,URH)VRH)SUH)SVH)CP) SCIM 

1PRHS ) DRHS ) TRHS ) URHS > VRHS ) PRHL ) DRHL > TRHL > URHL > VRHL ) SCIM 

2SPHS)SDHS)STHS)SUHS)SVHS)SPHL)SDHL)STHL)SUHL)SVHL SCIM 

COMMON/M I NCOM/DH )FCDRY)DX5)DY5)DPX>DPY)DPXX)DPXY)PPYY)U6H)VGH) SCIM 
♦ TH<DTX)DTY)DUH)DVH»PH ) UPRE ) VPRE ) DUPRE ) DVPRE SCIM 

COMMON/CHR/PCK(4)4)3))DCK(4)4)3))NO(2) SCIM 

COMMON/CHIC/LA(4)4))NB(2))IHSYM)UCOEF( 14)9) )VCOEF( 14)9) SCIM 

FACTOR FOR RADIANS TO DEGREES SCIM 

FAC = 57.2957795 SCIM 

IHSYM = * ' SCIM 

IF(NPOP.NE.O) GO TO 6 SCIM 


UPRE=0. 

VPR£=0. 

DUPRE=0. 

DVPRE=0. 

P0=0. 

08=0. 

TQ=0. 

PRH=0» 

DRH=0. 

TRH=0. 

URH=0. 

VRH=0. 

U0=0. 


SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 

SCIM 


3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
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VQ=0. 

P0A=0. 

DGA=0, 

TQA=0. 

UA=0. 

VA=0, 

PSH=0, 

DSK=0, 

fsh=o, 

NONTH=HN 

C PRESENT LATITUDE) DEG 

PHI = PHIRtFAC 

C PRESENT LONGITUDE. DEG 

THET = THETRtFAC 
C PREVIOUS LATITUDE. DEG 

PHI1 = PHI 1 RIF AC 
C PREVIOUS LONGITUDE. DEG 

THET1 = THET1RIFAC 

c FCORY = WORTH CONPONENT CORIOLIS FACTOR TINES DISTANCE FOR 

C 5 DEGREES OF LATITUDE 
DY5 = 5000. »RI /FAC 
DX5 = DY5fC0S(PHIR) 

FCORY = DY5tSIN(PHIR)/(120.*FAC> 

C IN JACCHIA OR NIXED GROVES- JACCHIA HEIGHT RANGE 

8 IF(H.GT.90.0) GO TO 10 

C IN 4-D DATA HEIGHT RANGE 

IF (H.LE.25.0) GO TO 500 

C IN GROVES OR NIXED GROVES 4D HEIGHT RANGE 
‘ 60 TO 200 

C IN HIXED JACCHIA-GROVES RANGE. NEED TO FAIR DATA 

10 IF (H.LT.115.) GO TO 20 

c FOLLOWING IS THE PURE JACCHIA HEI6HT RANGE SECTION 

C...,. JACCHIA VALUES AT CURRENT POSITION 
CALL JACCH(H.PHIR.THET.PH.DH.TH) 

PH1N = PHIR + 5. / FAC 
THETE = THET - 5. 

c JACCHIA VALUES AT CURRENT P0SITI0N+5 DEGREES LAT. FOR DP/DY AND 

C DT/DY 

CALL JACCH(H.PHIN.THET.PHN.DHN.THN) 

c JACCHIA VALUES AT CURRENT POSITION-5 DEGREES LON. FOR DP/DX AND 

C DT/DX 

CALL JACCH(H.PHIR.THETE.PHE.DHE.THE) 

C DP/DY FOR 6E0STR0PHIC WIND 

DPY=PHN-PH 

C DP/DX FOR GEOSTROPHIC HIND 

DPX=PHE-PH 

C DT/DX FOR THERNAL HIND SHEAR 

DTX = THE - TH 

C DT/DY FOR THERNAL HIND SHEAR 

DTY = THN - TH 

C CHANGE NOTATION FOR OUTPUT 

PGH=PH 
DGH=DH 
T6H=TH 


SCIN 57 
SCIH 58 
SCIN 5? 
SCIN 60 
SCIN 61 
SCIN 62 
SCIN 63 
SCIH 64 
SCIN 65 
SCIN 66 
SCIN 67 
SCIN 68 
SCIN 6? 
SCIH 70 
SCIN 71 
SCIN 72 
SCIH 73 
SCIN 74 
SCIN 75 
SCIN 76 
SCIH 77 
SCIN 78 
SCIN 7? 
SCIN 80 
SCIH 81 
SCIN 82 
SCIN 83 
SCIN 84 
SCIN 85 
SCIN 86 
SCIN 87 
SCIH 88 
SCIN 89 
SCIN 90 
SCIN 91 
SCIH 92 
SCIH 93 
SCIN 94 
SCIN 95 
SCIN 96 
SCIH 97 
SCIN 98 
SCIN 99 
SCIN 100 
SCIN 101 
SCIH 102 
SCIH 103 
SCIH 104 
SCIN 105 
SCIH 106 
SCIN 107 
SCIN 108 
SCIN 109 
SCIN 110 
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CALL WIND 
UH = UGH 
VH = UGH 
HB = H I 5. 

CP = 7.*PH/<2.*DH*TH) 

CALL JACCH(HB,FHIR,THET»PB,D8,TB) 

DTZ = (TB - TH>/5000* 

C VERTICAL MEAN WIND 

WGH = -CP»<UH*DTX/DX5 F VM*DTY/DY5)/( G F CPIDTZ F UHIDUHFVHIDVH) 
C GO TO RANDOM PERTURBATIONS SECTION 

GO TO 800 

C FOLLOWING IS THE NIXED JACCHIA-GROVES HEIGHT RANGE SECTION 

C LOWER HEIGHT INDEX 

20 I HA = 5*(INT(H)/5) 

C UPPER HEIGHT INDEX 

IHB = IHA F 5 

C LOWER HEIGHT FOR INTERPOLATION 

HA = IHAI1. 

C UPPER HEIGHT FOR INTERPOLATION 

HB = IHBI1. 

C JACCHIA VALUES AT LOWER HEIGHT, CURRENT LAT-LON 

CALL JACCH ( HA , PHIR , THE T , P JA , DJA , T JA ) 

PHIN = PHIR F 5. / FAC 
THETE = THET - 5. 

C JACCHIA VALUES AT LOWER HEIGHT, CURRENT LAT-L0NF5 DEGREES 

C LAT, FOR DP/DY AND DT/DY 

CALL JACCH< HA, PHIN, THET, PJN,DJN,TJN) 

C JACCHIA VALUES AT LOWER HEIGHT, CURRENT LAT-LON-5 DEGREES 

C LON, FOR OP/DX, AND DT/DX 

CALL JACCH( HA, PHIR, THETE, PJE,DJE,TJ£) 

C JACCHIA DP/DY AT LOWER HEIGHT 

DPXJA=PJE-PJA 

C JACCHIA DP/DY AT LOWER HEIGHT 
DPYJA = PJN-PJA 

C JACCHIA DT/DX AT LOWER HEIGHT 
DTXJA = TJE - TJA 

C JACCHIA DT/DY AT LOWER HEIGHT 
DTYJA = TJN - TJA 

C JACCHIA VALUES AT UPPER HEIGHT, CURRENT LAT-LON 

CALL JACCH ( HB , PHI R , THET , F'JB , DJB , T JB ) 

PHIN = PHIR F 5. / FAC 
THETE=THETE-5 

C JACCHIA VALUES AT UPPER HEIGHT, CURRENT LAT/L0HF5 DEGREES 

C LAT, FOR DP/DY AND DT/DY 

CALL JACCH (HB, PHIN, THET»PJN,DJN, TJN) 

C JACCHIA VALUES AT UPPER HEIGHT, CURRENT LAT-LON-5 DEGREES 

C LON, FOR DP/DX AND DT/DX 

CALL JACCH(HB, PHIR, THETE, PJE,DJE, TJE) 

C JACCHIA DP/DX FOR GEOSTROPHIC WINDS 
DPXJB = PJE - PJB 

C JACCHIA DP/DY FOR 6E0ST0PHIC WINDS 
DPYJB = PJN - PJB 

C JACCHIA DT/DX FOR THERMAL WIND SHEAR 
DTXJB = TJE - TJB 
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C JACCHIA DT/DY FOR THERMAL HIND SHEAR cflH u 

DTYJB = TJN - TJB SCIh it 

C.,.., GROVES AT LOWER HEIGHT i TO BE FAIRED WITH JACCHIA SCIH 16; 

CALL GTERP(IHA>PHInPGA»DGAfTGAfPG>DGfTG»DPTGArDTVGA»DP2TGA) SCIH 161 

C AT UPPER HEIGHT) TO BE FAIRED WITH JACCHIA SCIH 16‘ 

CALL GTERP(IHB)PHI)P6B)D66)TGB)PGfDG)TGfDpyGBfDTY6BfDP2TGB) SCIH 17( 

c paired RESULTS AT LOWER HEIGHT SC j M 17j 

CALL FAIR(PGA)DGA)TGA)PJA)DJA)TJA)IHA)P1)D1»T1) DPTGAf SCIH 171 

$ DPXJA»DPYJA)DPXA)DPYA) DT YGA f DTX JA f DT YJA » DTXA f DTYA ) SCIH 17' 

c PAIRED RESULTS AT UPPER HEIGHT SCIH 174 

CALL PAIR(PGBfDGB)TGB)PJBrDJB)TJB»IHBfP2)D2)T2i DPYGBf SCIH 175 

IDPXJBfDPYJBfDPXBfDPYBf DTY6RfBTXJR,DTYJB)0TXBfDTYB) SCIH 176 

HEIGHT INTERPOLATION ON FAIRED Pr D r T SCIH 177 

CALL INTER2(Pl)Dl)Tl)HA)P2fD2)T2rHBfPH)DH)TH)H) SCIH 178 

c HEIGHT INTERPOLATION ON FAIRED BP/DXfDP/DY SCIH 179 

CALL INTERW(DPXA)DPYA)HA)DPXB..DPYB)HB)DPXfDPY)H) SCIH 180 

c HEIGHT INTERPOLATION ON FAIRED DT/DX)BT/D'f SCIH 181 

CALL INTERW(DTXAfDTYAfHAfDTXBfDTYBfHB)DTXfDTYfH) SCIH 182 

C,,,,. EASTWARD COMPONENT OF GEOSTROPHIC WIND SCIH 183 

CALL WIND SCI J j" 

C CHANGE OF VARIABLES FOR OUTPUT SCIH 185 

ss 

™ SCHI 18) 

,,, ,H SCIH 188 

VH = S SCIM 189 

CP = 7.*PH/(2.*DH*TH) 

DTZ = (T2 - Tl) 75000* SCIM m 

C VERTICAL HEAN WIND SCI * m 

WGH = -CP*(UH»DTX/DX5 + VH*DTY/DY5)/(G F CPtDTZ + UH*DUH + VHIDVHISCIH 194 
C 60 TO RANDOM PERTURBATIONS SECTION SCIH 195 

GO TO 800 SCIM m 

C THE POLLOWING SECTION IS FOR GROVES OR MIXED GROVES 4D HEIGHTS SCIH 197 

C UPPER HEIGHT INDEX SCIM 19fl 

200 IH6B = 5*(INT(H)/5) F 5 SCIH 199 

IP (IHGB.GT.90) IH6B=90 cptm 

C UPPER HEIGHT £ J f, 

HGB = IHGBI1 > sciM 20* 

C GROVES AT UPPER HEIGHT SCIN 20 J 

CALL GTERP(IHGBfPHIfPGBfDGBfTGBfPGfBGfTGfDPYGBfDTY6BfDP2YGB) SCIH 204 

C UPPER STATIONARY PERTURBATION HEIGHT = 40 SCIH 205 

IF (H.LT.40.0) GO TO 210 SCIM 2 06 

C..,.. UPPER STATIONARY PERTURBATION HEIGHT = 90 SCIH 207 

IF (H.GT.84,0) GO TO 220 SCIH 208 

C,,... UPPER STATIONARY PERTURBATION HEIGHT = 52f60>68f76f0R 84 SCIM 209 


IHSB = 8t((IHT(H) F 4)/8) F 4 

C UPPER STATIONARY PERTURBATION HEIGHT = 52 

IF (IHSB. LT. 52,0) IHSB = 52 
GO TO 230 

210 IHSB = 10»(INT(H)/10) + 10 
GO TO 230 
220 IHSB = 90 

C UPPER STATIONARY PERTURBATION HEIGHT 
230 HSB = IHSBI1, 
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c STATIONARY PERTURBATIONS AT UPPER HEIGHT SCIH 219 

CALL PDTUV ( PSP » BSP » TSP » PHI , THET , IHSB, PSB »DSBt TSB»DPXSB» DPYSBt SCIH 220 

$ DTXSB , DTYSB , 0P2XSB i DP2YSB , DPXYSB ) SCIH 221 

C HIXED GROVES 4D SECTION SCIH 222 

IF IH.LT.30.0) GO TO 300 SCIH 223 

C LOWER HEIGHT INDEX SCIH 224 

IHGA = IHGB - 5 SCIM 225 

C LOWER HEIGHT INDEX SCIM 224 

HGA = IHGAI1. SCIM 227 

C GROVES AT LOHER HEIGHT SCIH 228 

CALL GTERP < IHGA , PHI , PGA > D6A , T6 A , PG , DG » TG , BF'YGA , DT YGA , DP2YGA ) SCIH 229 

C LOHER STATIONARY PERTURBATION HEIGHT = 30 SCIH 230 

IF IH.LT.40.0) GO TO 240 SCIH 231 

C LOHER STATIONARY PERTURBATION HEIGHT = 52,60,68.74, OR 84 SCIH 232 

IHSA = 8*((INT(H) 4 4)/8) - 4 SCIH 233 

C LOHER STATIONARY PERTURBATIONS HEIGHT = 40 SCIH 234 

IF (IHSA, LT. 40.0) IHSA = 40 SCIH 235 

GO TO 250 SCIM 234 

240 IHSA = 30 SCIH 237 

C LOHER STATIONARY PERTURBATION HEIGHT SCIH 238 

250 RSA r IKSAil* SCIH 239 

ct.. ..STATIONARY PERTURBATIONS AT LOHER HEIGHT SCIH 240 

CALL PDTUV(PSP, DSP, TSP, PHI, THET, IHSA, PSA, DSA,!SA»DPXSA,DPYSA, SCIH 241 

$ DTXSA,DTYSA,DP2XSA,DP2YSA,BPXYSA) SCIH 242 

C GROVES VALUES HEIGHT INTERPOLATIONS SCIH 243 

CALL INTER2(PGA,D6A»TGA,HGA,P6B,BGB»TGB,H6B,PGH,DGH,TGH,H) SCIH 244 

C STATIONARY PERTURBATION HEIGHT INTERPOLATION SCIN 245 

CALL INTERZ(PSA,BSA,TSA,HSft,PSB,DSB,TSB,KSB,PSH,D5H,TSH,H) SCIH 246 

C QUASI-BIENNIAL VALUES SCIH 247 

CALL OBOGEN SCIM 248 

C HEIGHT INTERPOLATION OF GROVES DP/DY, BT/BY, AND D2P/DY2 SCIH 249 

CALL INTERZI DPYGA t DTYGA* DP2YGA ) HGA , BPYGB, BT YGB, DP2YGB , HGB » DPYG » SCIH 250 

$ DTYG,DP2YG,H) SCIM 251 

C HEIGHT INTERPOLATION OF STATIONARY PERTURBATION DP/DX AND DP/DY SCIH 252 

CALL INTERH(DPXSA,DPYSA,HSA,OPXSB,DPYSB,HSB,DPXS>DPYSrH) SCIH 253 

C HEIGHT INTERPOLATION OF STATIONARY PERTURBATION DT/DX AND DT/DY SCIH 254 

CALL INTERS DTXSA,DTYSA,HSA, DTXSB, DTYSB,HSB,DTXS,DTYS,H) SCIH 255 

C HEIGHT INTERPOLATION OF STATIONARY PERTURBATION D2P/BX2,D2P/DY2» SCIH 256 

C AND D2P/DXDY SCIM 257 

CALL INTERZ(DP2XSA,DP2YSA,DPXYSA,HSA,DP2XSB,DP2YSB, DPXYSB, HSB, SCIH 258 

$ DP2XS»DP2YS,I)PXYSrH) SCIH 259 

C UNPERTURBED (HONTHLY HEAN) VALUES FOR OUTPUT SCIH 260 

TGH = TGH I 11. + TSH) SCIH 261 

PGH = P6H t <1. 4 PSH) SCIH 262 

D6H = BGH I (1. + DSH) SCIH 263 

C TOTAL DT/DX SCIM 244 

BTX = DTXS * TGH SCIH 265 

C TOTAL DT/DY SCI * 244 

DTY = TGHtDTYS 4 DTYGtU. 4 TSH 4 DTYS) SCIH 267 

C TOTAL DP/DX 248 

DPX = DPXS I PGH SCIH 269 

C TOTAL DP/DY SCIH 270 

DPY = PGHIDPYS 4 DPYG*(1. 4 PSH 4 DPYS) SCIH 271 

C D2P/DX2 SCIN 272 
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Of XX = P6HW2.MPXS - DP2XS) 

Dm = PGHK2.IDPYS - DP2YS) 4 (2XDPYG - DP2Y6W1. 4PSH4DPYS) 

* - (DPYG - DP2YGXDP2YS 

C D2P/DXDY 

DPXY = <PGH 4 DPY6XDPXYS 4 DPYGKDPXS 

C UNPERTURBED VALUES PLUS 0B0 PERTURBATIONS 

PH = <1. 4 PO) * P6H 
DH = DGH t d, 4 DO) 

TH = (1* 4 TO) * TGH 
CALL UIND 

C GEOSTROPHIC HIND PLUS QBO HIND PERTURBATIONS 

UH=UGH4U0 
VH=VGH4VO 

CP = 7.*PGH/(2.*DGH«TGH> 

DTZ = (TGB*d»4T$B) - TGA*d,4TSA))/5000. 

C VERTICAL MEAN UIND 

UGH=-CPt ( UGHIDTX/DX54 VGWDTY/DY5) / ( G4CP*DTZ4VGH*DUH4VGH*DVH) 

C GO TO RANDOM PERTURBATIONS SECTION 
GO TO 800 

C THE F0LL0HIN6 IS THE NIXED GROVES 4D SECTION 

C...., GENERATE GRID OF 4D PROFILES IF PREVIOUS HEIGHT GE 30 
300 IF (H1.GE.3O..OR.L0OK.EQ.1) CALL GEN4D 
IHCK = 24 
DO 310 KND = 1 f 3 
IKND = IHCK + KND 
IF (IKND.6T.26)IKND=26 
DO 310 IND = 1,4 
DO 310 JND = 1,4 

PCKUND,JND,KND) = P4D<4tdND-l>4JND,IKND) 

DCK(IND,JND,KND) = D4D(4«IND-1)+JND,IKND) 

310 CONTINUE 
CALL CHECK 

C LAT-LON INTERPOLATION OF 4D DATA AT 25 KM 

CALL INTER4< PHI,THET>25, P4D,D4D,T4D,P4A,D4A,T4A, 

* DPX4,DPY4,DTX4iDTY4,DPXXA,DPYYA,DPXYA) 

C GROVES PLUS STATIONARY PERTURBATIONS 

PB = PGB*(1, + PSB) 

C P,D,T 

DB = DGBK1. + DSB) 

TB = TGBK1. + TSB) 

DPXB = raiDPXSB 

DPYB = TOB»DPYSB 4 DPYGW(1. 4 PSB 4 DPYSB) 

DPXXB = PGBK2.IDPXSB - DP2XSB) 

DPYYB = PGBK2.IDPYSB - DP2YSB) 4 (2.IDPYGB - DP2YGBX 

* d. 4 PSB 4 DPYSB) - < DPYSB - DP2YGBXDP2YSB 
DPXYB = (PGB 4 DPYGBltDPXYSB 4 DfYGBKDPXSB 
DTXB = TGBtDTXSB 

DTYB = TGBIDTYSB 4 DTYGBtd. 4 TSB 4 DTYSB) 

C HEIGHT INTERPOLATION BETHEEN 4D AT 25 AND GROVES AT UPPER HEIGHT 

C DP/DX AND DP/DY 

CALL INTERN ( DPX4, DPY4 , 25. , DPXB, DPYB, HSB , DPX»DPY ,H) 

C HEIGHT INTERPOLATION BETHEEN 4D AT 25 AND GROVES AT UPPER HEIGHT 

C P,D,T 

CALL INTER2(P4A,D4A,T4A,25. ,PB,DB,TB,HGB,PGH,DGH,TGH,H) 
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c HEIGHT INTERPOLATION BETWEEN 4D AT 25 AND GROVES AT UPPER HEIGHT SCIM 327 

C DT/DX AND DT/DY SCIH 328 

CALL INTERW < 0TX4 1 DTY4 f 25 . » DTXB * DT YBtHSB * DTX f DTY f H) SCIH 329 

C HEIGHT INTERPOLATION BETWEEN 4D AT 25 KH AND GROVES AT UPPER SCIH 330 

C HEIGHT D2P/BX2) D2P/DY2f AND D2P/DXDY SCIH 331 

CALL I NTERZ < DPXX A » OPYY A t DPX Y A » 25 . t DPXXB » DP Y YB r DPXYB r HGB » DPXX f SCIH 332 

$ DPYYfDPXYtH) SCIH 333 

IF (IOPQ.E9.2) GO TO 350 SCIH 334 

C QUASI BIENNIAL PERTURBATIONS SCIH 335 

CALL QBOGEN SCIH 336 

C ADD QBO PERTURBATIONS TO PfDfT SCIH 337 

350 PH=PGH*(1.FPG> SCIH 338 

DH=DGHt(I . tPQ) SCIH 339 

TH=TGH*(1.+T0) SCIH 340 

CALL WIND SCIH 341 

C ADD QBO WIND PERTURBATIONS SCIH 342 

UH=UGHFUfl SCIM 343 

VH=VGH+VQ SCIH 344 

CP = 7.*PGH/(2.*DGH*TGH) SCIH 345 

DTI = (TB - T4A)/(1000.*(HGB - 25» > > SCIH 346 

C VERTICAL HEAN WIND SCIH 347 

WGH- -CP* < UGH* DTX/DX5+ VGHIDTY/DY5 ) / 1 G+CPIDTZ+UGHtDUH+VGHtDVH ) SCIH 348 

C GO TO RANDOH PERTURBATIONS SECTION SCIH 349 

2000 FORHATC LATITUDE' f/16F8. 3) SCIH 350 

2001 FORHATC LONGITUDE 'f/16F8.3f/' PRESSURE') SCIH 351 

2002 FGRNAT(1XfI2f16F8.0) SCIH 352 

GO TO 800 SCIH 353 

500 IF (H.GE.0,0) GO TO 510 SCIH 354 

IF (H.LT. -0.015) GO TO 505 SCIH 355 

C IF -15 HETER LE H LT 0 r H IS SET TO 0 SCIH 356 

H = 0. SCIH 357 

GO TO 510 SCIH 358 

C NO HORE CONFUTATIONS TD BE HADE IF HEIGHT LT -5 H SCIH 359 

505 NHORE = 0 SCIH 360 

RETURN SCIH 361 

C GENERATE GRID OF 4D PROFILES IF PREVIOUS HEIGHT GE 30 SCIH 362 

510 IF (HI. GE. 30. .OR. LOOK. EG. 1) CALL GEN4D SCIH 363 

C LOWER HEIGHT INDEX SCIH 364 

IHA=INT(H) SCIH 365 

C LOWER HEIGHT INDEX SCIH 366 

HA = IHAI1. SCIH 367 

IWSX = IWSYH SCIH 368 

IHCK=IHA-1 SCIM 

DO 511 KND=1f3 SCIH 370 

IKND = IHCK + KND SCIH 371 

IF (IKND.LT.l)IKND = 1 SCIH 372 

IF ( IKND. GT. 26) IKND = 26 SCIH 373 

DO 511 IND=1f4 SCIH 374 

DO 511 JND = 1f4 SCIH 375 

F'CK ( I NB f JND i KND ) =P4D ( 4* ( I ND- 1 ) f JND * IKND ) SCIH 376 

DCK ( IND r JND > KND ) =D4D ( 4< ( I ND- 1 ) + JND i IKND ) SCIH 377 

511 CONTINUE SCIH 378 

CALL CHECK SCIH 379 

C UPPER HEIGHT INDEX SCIH 380 
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ihb = m + 1 

IFdHB.LE.25) GO TO 513 

IHA=24 

HA=24. 

IHB=25 

C UPPER HEIGHT 
513 HB = IHBI1. 

c LAT-LON INTERPOLATION OF 4D VALUES AT UPPER HEIGHT 

515 CALL INTER4( PHIdHEMHBf P4D> D4Dr T4DrPBrDBr TBr 

i DPX4BfDPY4BiDTX4B>BTY4B»DF , XXBiDPYYBrl)PXYB) 
IFdHA.E0.O.AND.PB<DBITB.LE.O.)6O TO 520 
GO TO 540 
520 IHB=IHBT1 

C LOOP TO FIND LOWEST VALID HEIGHT 

HB=HBT1. 

GO TO 515 

540 IF(IHA.GT.O)CALL INTER4I PHIfTTCT»IHA» P4D,D4D,T4Dr 

1PA > DA r TAf DPX4A i DPT4A » DTX4A f DTY4A> DPXXA » DPYYA , DPXYA) 
IFUWSYH.EQ.'rdWSX = IWSYH 

IFdHA.EQ.O.OR.(PAtDA*TA.LE.O.AND,IHA,LT.10.AND,PB*DB*T8.GT.O,>) 

1G0 TO 550 
GO TO 600 

C LAT-LON INTERPOLATION OF 4D VALUES AT LOWER HEIGHT 

550 CALL INTER41 PHIdHETiOr P4D)D4DrT4Dr 

.PA»DArTArDPX4A»0PY4AiDTX4AfDTY4A>DPXXArDPYYA>DPXYA) 

IFdWSYH.EO. 't'JIWSX = IWSYH 
IF < TA-TB ) 560 » 570 f 560 
560 TZ=(TA-TB)/ALOG(TA/TB) 

GO TO 575 
570 TZ=TA 

C ...COMPUTES HEIGHT OF SURFACE 
575 HA=HB+0.28705*TZ*AL0G(PB/PA)/G 
IF(H,GT.HA-.04) GO TO 600 
PH=0. 

DH=0. 

TH=0, 

PGH=0. 

DGH=0. 

T6H=0. 

GO TO 800 

C HEIGHT INTERPOLATION OF P,D,T 

600 CALL INTER2(PA>BA»TA»HA»PB»B6> TBiHBrPGHrDGH*T6H»H) 

C HEIGHT INTERPOLATION OF DP/DX AND DP/DY 

CALL INTERW ( DPX4A » DPY4A * HA» DPX48 1 DPY4B » HB » DPX r DPY»H) 

C HEIGHT INTERPOLATION OF DT/DX AND DT/DY 

CALL INTERW(DTX4A*DTY4A»HA*DTX4B»DTY4B)HBrDTX»DTY»H) 

c HEIGHT INTERPOLATION OF D2P/DX2* D2P/DY2 » AND D2P/DXDY 

CALL INTERZ(DPXXA»DPYYA»DPXYA>HAfDPXXBfDPYYB»DPXYBrHBfDPXX»DPYY» 
*DPXY>H) 

C CHANGE OF NOTATION FOR OUTPUT 

PH = PGH 
DH = DGH 
TH = TGH 

IFtPHIDHtTH.LE.O.) GO TO 800 
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CALL MIND 

C CHANGE Of NOTATION FOR OUTPUT 
UH = UGH 
VH = VGH 

CP = 7 « IPGH/ ( 2 . tBGHITGH ) 

DTZ = <TB - TA)/<1000.*(H8 - HA)) 

C.... VERTICAL MEAN HIND 

UGH = -CPKU6WDTX/DX5 F V6H4DT Y/DY5 ) / ( G+CPtDTZ+UHIDUHF VWDVH ) 

C QBO=Q IF H LT 10 

IF (H.LT.10.) GO TO 800 
IF (IOffl.EQ.2) GO TO 650 

C COMPUTES QUASI BIENNIAL PERTURBATIONS 

CALL OBOGEN 

C ADOS QBO PERTURBATIONS TO P.D.T 

650 PH=FGH*U.+PQ> 

DH=DGH4<MDQ) 

TH=TGHt(MTO) 

C ADDS QBO HIND PERTURBATIONS TO U.V 
UH=UGH+UQ 
VH=VGH+VQ 

C THE FOLLOHING IS THE RANDOM PERTURBATIONS SECTION 

C NO RANDOM PERTURBATIONS IF IOPR GT 1 

800 CONTINUE 

IF(H.GT,30) GO TO 512 
IF<IPRT.NE,0,0R.1HSYH.NE, , * , ) GO TO 512 
WRITE (6» 2000) IGLAT(I). 1=1.16) 

WRI TE (6» 2001 ) (GL0N(I).I=1»16) 

DO 504 1=1 .26 
IH=I-1 

WRITE (6 p 2002 ) IH.(P4D<J>I)? J=1.16> 

504 CONTINUE 
IPRT=IPRT+1 
512 CONTINUE 

IF (IOPR.GT.l) GO TO 830 

C INTERPOLATES RANDOM UINB MAGNITUDES TO HEI6HT Hr LATITUDE PHI 

CALL INTRUVUJR.VR.H.PHI.SUH.SVH) 

CALL INTRUV(PLP>DLP.H.PHI.PLPH.DLPH) 

CALL INTRUV(TLP.DLP.H»PHI»TLPH.DLPH) 

CALL INTRUV(ULP.VLP.H.PHI.ULPH.WJH) 

CALL INTRUV(UDL»VBL.H.PHI.UDL2.VDL2> 

CALL INTRUV(UDS.VDS»H.PHI»UD$2.VBS2) 

SUHL=SQRT(ULPHIABS(SUH) ) 

SIJHS=SORT ( ( 1 . -ULPH ) *ABS < SUH > ) 

SVHL=SQRT ( VLPHt ABS ( SVH) ) 

SVHS=SGRT ( ( 1 . -VLPH) *ABS< SVH) ) 

SUH = SORT (ABSLSUH) ) 

SVH = SORT (ADS (SVH)) 

C IF H LE 25 USE 4D DATA RANDOM P.D.T SIGMAS 

IF (H.LE.25.) GO TO 810 

C INTERPOLATE PR.DR.TR ARRAYS TO GET P.D.T SIGMAS AT HEIGHT Hr 

C LATITUDE PHI 

CALL RTERP < H , PHI . PR . DR. TR . SPH . SDH.STH ) 

GO TO 820 

C LAT-LON INTERPOLATION ON P.D.T SIGMAS AT LONER HEIGHT 
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SCIM 444 
SCIM 445 
SCIM 446 
SCIM 447 
SCIM 448 
SCIM 449 
SCIM 450 
SCIM 451 
SCIM 452 
SCIM 453 
SCIM 454 
SCIM 455 
SCIM 456 
SCIM 457 
SCIM 458 
SCIM 459 
SCIM 460 
SCIM 461 
SCIM 462 
SCIM 463 
SCIM 464 
SCIM 465 
SCIM 466 
SCIM 467 
SCIM 468 
SCIM 469 
SCIM 470 
SCIM 471 
SCIM 472 
SCIM 473 
SCIM 474 
SCIM 475 
SCIM 476 
SCIM 477 
SCIM 478 
SCIM 479 
SCIM 480 
SCIM 481 
SCIM 482 
SCIM 483 
SCIM 484 
SCIM 485 
SCIM 486 
SCIM 487 
SCIM 488 
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810 CALL INTER4< PHI » THET r IHAf SP4*SB4*ST4.PA*DA*TA* SCIN 489 

♦ DPXfDPr»DTXfDTVrDPXXfDPrY»DPXV> SCIN 490 

C LAT-LQN INTERPOLATION ON P*D*T SIGNSA AT UPPER HEIGHT SCIN 491 

CALL INTER4I PHI*THET*IHB* SP4.SD4.ST4*PB.DB.TB* SCIN 492 

« DPX r DPY »DTX »DTY t BPXX f DPYY rDPXy ) SCIN 493 

C HEIGHT INTERPOLATION OF SIGNA5 SCIN 494 

CALL INTERZ(PA*DA*TA* HA*PB*DB*TB* HB*SPN*SDH*STH*H) SCIN 495 

IF(PHIDH*TH.LE.O.) GO TO 825 SCIN 494 

C HEIGHT DISPLACEMENT BETWEEN PREVIOUS AND CURRENT POSITION SCIN 497 

820 DZ = HI - H SCIN 498 

$PHL=SORT(PLPHIABS(SPH)) SCIN 499 

SPHS=SQRT((l.-PLPH)tABS(SPH)) SCIN 500 

SDHL=SQRT ( DLPHIABS ( SDH ) ) SCIN 501 

SDHS=SBRT ( ( 1 * -DLPH ) 4 ABS ( SDH ) ) SCIN 502 

STHL=SQRT ( TLPHIABS ( STH ) ) SCIN 503 

STHS=SQRT ( ( 1 . -TLPH ) tABS (STH ) ) SCIN 504 

SPH = SORT ( ABS (SPH>) SCIN 505 

SDH = SORT (ABS (SDH)) SCIN 504 

STH = SORT (ABS (STH)) SCIN 507 

C CONFUTES HORIZONTAL BIXPLACENENT DX BETHEEN PREVIOUS AND CURRENT SCIN 508 

C POSITION* HORIZONTAL SCALE KLr AND VERTICAL SCALE VL SCIN 509 

C CONPUTES PERTURBATION VALUES PRH » DftH r TRH f URH AND VRH SCIN 510 

CALL PERTRB SCIN 511 

C ADDS RANDOM PERTURBATIONS TO PHfDHiTH SCIN 512 

PH = PH*<1, + PRH) SCIN 513 

DH = DHK1. + DRH) SCIN 514 

TH = THK1. F TRH) SCIN 515 

C ADDS RANDOM WINDS TO UH.VH SCIN 514 

UH=UH+URH SCIN 517 

VH-VH+VRH SCIN 518 

C SETS PREVIOUS RANDOM PERTURBATION IN P.DrT TO CURRENT SCIN 519 

C PERTURBATIONS* FOR NEXT CYCLE SCIN 520 

825 RP1S= PRHS SCIN 521 

RD1S= DRHS SCIN 522 

RT1S= TRHS SCIN 523 

RP1L=PRHL SCIN 524 

RD1L=DRHL SCIN 525 

RT1L=TRHL SCIN 524 

C SETS PREVIOUS MAGNITUDES FO CURRENT VALUES* FOR NEXT CYCLE SCIN 527 

SP1S=SPHS SCIN 528 

SD1S= SDHS SCIN 529 

ST1S=STHS SCIN 530 

SP1L=SPHL SCIN 531 

SD1L=SDHL SCIN 532 

ST1L=STHL SCIM 533 

c SETS PREVIOUS WIND PERTURBATION VALUES TO CURRENT VALUES* SCIN 534 

C FOR NEXT CYCLE SCIN 535 

RU1S=URHS SCIN 534 

RV1S=VRHS SCIN 537 

«J1L=URHL SCIN 538 

RV1L=VRHL SCIN 539 

C SETS PREVIOUS WIND PERTURBATION MAGNITUDES TO CURRENT VALUES* SCIN 540 

C FOR NEXT CYCLE SCIN 541 

SU1S--SUHS SCIN 542 


D- 51 


SV1S=SVHS SCIM 543 

suil=suhl ^ 544 

SV1L=SMHL SCIM 545 

C SETS PREVIOUS HEIGHT TO CURRENT HEIGHT, FOR NEXT CYCLE SCIH 546 

830 HI = H SCIM 547 

C SETS PREVIOUS LATITUDE TO CURRENT LATITUDE, FOR NEXT CYCLE SCIH 548 

PHI1R=PHIR SC™ 549 

C SETS PREVIOUS LONGITUDE TO CURRENT LONGITUDE, FOR NEXT CYCLE SCIH 550 

THET1R=THETR SCIH 551 

C SETS NHORE TO COMPUTE HORE DATA ON NEXT CYCLE SCIH 552 

NHORE = 1 SCIM 553 

C NO HORE DATA IF Pr D, OR T LEO 0 SCIH 554 

IFIPMDHITH.LE.O.) RETURN SCIH 555 

CALL STDATH(H,TS,PS,DS) SCIH 556 

IF ((PS*DS<TS).GT.O.) GO TO 870 SCIH 557 

PGHP=0 . SCIM 558 

D6HP=0. SCIM 559 

TGHP=0. SCI * 560 

PHP=0* SCIH 561 

DHP=0, SCIH 562 

THP=0 ► SCW 563 

GO TO 880 SCIH 564 

870 PGHP r 100.t(PGH-PS)/PS SCIH 565 

DGHP= 100 . ♦ < D6H-DS ) /DS SCIH 566 

TGHP=100.*(TGH-TS)/TS SCIH 567 

PHP= 1 00 . > ( PH-PS ) /PS SCIH 568 

DHP=100.*(DH-DS)/DS SCIH 569 

THP=100.t<TH-TS)/TS SCIH 570 

C CONVERTS QBO P,D,T TO PERCENT SCIH 571 

880 PG=100.tPQ SCIM 572 

DQ=100.*DQ SCIH 573 

TQ=100.*T0 SCIH 574 

C CONVERTS RANDOH P,D,T TO PERCENT SCIH 575 

PRH=100.*PRH SCIH 576 

DRH=100.*DRH SCIrt 577 

TRH=100.*TRH SCIH 578 

PRHS=100.IPRHS SCIH 579 

DRHS=100.*DRHS SCIH 580 

TRH$=100.ITRHS SCIH 581 

PRHL=100.*PRHL SCIH 582 

DRHL=100.*DRHL SCIH 583 

TRHL=100.*TRHL SCIH 584 

SPHS = 100.ISPHS SCIH 585 

SDHS = 100.ISDHS SCIH 586 

STHS = 100.CSTHS SCIH 587 

SPHL = 100.ISPHL SCIH 588 

SDHL = 100.ISDHL SCIH 589 

STHL = lOO.tSTHL SCIH 590 

C CONVERTS WIND SHEAR TO H/S/KH SCIH 591 

DUH = DUH * 1000. SCIH 592 

DVH = DW * 1000. SCIH 593 

C CONVERTS VERTICAL WIND TO CH/S SCIH 594 

UGH = UGHJtlOO. SCIH 595 

PQA=PQA*100. SCIH 596 
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DQA=D0A*10O, 

TQA=TQA*100, 

SPH=SPH*100. 

SDH=SDH*100. 

STH=STH*100, 

PSH=PSH*100, 

DSH=0SH*100. 

TSH=TSH*100. 

IF(NPOP.NE.O) GO TO 920 

UPRE^UGH 

VPRE=VGH 

DUPRE=DUH/1000. 

DVPRE=DUH/1000. 

RETURN 

920 IF (IOPP.NE.O) 

t WRITE(I0PPf951) H » PHI > THET > P6HP > DGHP » T6H»U6H r V6N» SPNr SDH> STH> 
ISUHi SUHrPGHf OGHi FLOAT ( IET ) (FLOATIHN) (TGHP 
951 FORhAT(F5 t lr7F7,2f5F6>2r2El0,3rF5,0fF3,0rF7,2) 

NRITE(6f900) HrPMIf THETfPGH»DGH» TGHrUGH» IWSYMf VGHrPHf DH»THf IJHr 
I IUSYHfWHfDUHf 

t DVHtHGHrlETiPGHPfDGHPrTGHPtPHPtDHPrTHPrPSHrDSHrTSHfPQtDQrTQrUQr 
t V8(PQA(D0AiTQAiUA(VA(PRHS(BRHS(TRHS(URHS(WHS(SPHS(SDHStSTHS( 

1 SUMS r SVHS > PRHL » DRHL i TRHL r URHL > VRHL > SPHL i SDHL » S THL » SUHL r S VW. f 
2PRH » ORH JRH r URH f VRH i SPH » SDH f S TH » SUM » SUH 
900 F0RHRT(lX»F6.2f2F7*2»2(2E9»3»2F6.0»RlrF5.0)»2F5*l»23XfF6»2/lXf 
♦ I5i 14X(2<2( F8.1 r ‘Z" J »F6*1 f'Z'rllX) rlOXr 
*3F5.1»10X» * SP‘ i/102Xf3F5.1>2F5.0i ' QB07102Xf3F5d»2F5.0( 
$02X»3F5.1f2F5.0f * RANS , »/102X(3F5.1(2F5.0( ' SIGS* »/ 
2102X»3F5.1»2F5.0» * RAHL 1 » / 

SIBL* » / 

RANTS/ 

SIGTV) 


3102X»3F5.If2F5.0i 1 
4102Xi3F5.1»2F5.0» 1 
5102X»3F5.1f2F5.0f ' 

RETURN 

END 

SUDROUTINE SELEC4 
INTEGER I0TEH2 
C0HH0N/C4/XL ( 16 ) f YL ( 16 ) ( NP 


SCIH 597 
SCIH 598 
SCIN 599 
SCIH 600 
SCIN 601 
SCIN 602 
SCIN 603 
SCIN 604 
SCIN 605 
SCIN 606 
SCIN 607 
SCIN 608 
SCIN 609 
SCIN 610 
SCIN 611 
SCIN 612 
SCIN 613 
SCIN 614 
SCIN 615 
SCIN 616 
SCIN 617 
SCIN 618 
SCIH 619 
SCIN 620 
SCIH 621 
SCIN 622 
HAG71SCIH 623 
SCIH 624 
SCIN 625 
SCIN 626 
SCIH 627 
SCIH 628 
SCIN 629 
SCIN 630 


SUBROUTINE TO SELECT POINTS FOR INTERPOLATION 

CONHON /IOTENP/ I0TEH1 » I0TEM2 

CONNON /POINT/ IPT<16,5)rLL(16) f DXY(16,2> 

CONHON /ORDER/ IPTN(16»5)*IREAD(65(3) 


SELF 
SELE 
SELE 
SELE 
SELE 
SELE 
SELE 
SELE 
SELE 
SELE 
SELE 
SELE 
SELE 

DATA LINL/15>14i 13»12»11> 10>9i8r7F6»5)4r3f 2»23*1 »2»3»4r5r6»7»8f9rSELE 
110dlfl2(13(14rl5/ SELE 
DATA LINU/33(34(35(36i37(38(39(40(41(42(43(44(45(46(23*47(46(45( SELE 
144(43(42(41(40(39(38(37(36(35(34(33/ SELE 
DATA PI/3.14159/ SELE 

SELE 

SELE 


BIHENSION 


IC(4)dL(2)(JL(2)(LIHL(51)rLIHU(51) 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
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c INITIALIZE 

C 

PI4=PI/4. 

DEGRAD=PI/180. 

00 1 I=M6 

00 1 J=i f5 
1 IPT(I»J)=0 

C 

C MAJOR LOOP FOR POINTS 

C 

DO 100 I 1=1 *MP 
C 

LA=ABS(XL(II))tlO»+«5 
LO=YL(II>*10<+»5 
LL ( I I >=LA*1 OOOO+LO 
IF (XL(I1).LT.0»> LL(II)=-LL(II) 

C 

IF <XL(II)-15.1) 15»30»30 
15 IF (XL(II)) 50 » 40 » 40 
C 

C NNC GRID 

C 

30 IPT (II f5) =2 

EL= ( 350- YL d I ) ) IDEGRAD 
PHI=XLd DIDEGRAD 

R=31»204359052t(SINIPI4-PHI/2. )/C0S(PI4-PHI/2.)> 
XX=R*COS(ELH24. 

YY=RISIN(ELH26f 

I=XX 

J=YY 

DX=XX-I 

DY=rr-j 

PXYdDl)=DX 

DXY(IIi2)=DY 

IF ( XL ( I I ) . ST. 17.18) GO TO 31 

IF dJ.LT.l) .0R.( J.GT.51)) 60 TO 70 

IF ((I*LT«LIHL(J))»OR*(I«GTiLIMU(J))) GO TO 70 

31 lCd)=I*1000+J 

IF ((ABS(DX).GT».1)*0R.(ABS(DY) .6T»»1)) BO TO 32 
IP=1 

60 TO 35 

32 CONTINUE 

IF (XLdI).GT»17.18) GO TO 34 

IF (((I.GT«<LIHU(J)-1)).AN0.<<J.GE*15).ANB.(J.LE.37))) 

1 ,ORf (J.6T.50)) GO TO 70 

IF ((Hl»GT«LIHU(J+l))*ORf<I.LT.LINL<Jtl))) GO TO 80 
IF ((I.EQ»LIHU(J))*OR>(I*EQ»LIHLU))) GO TO 80 

34 IP=4 

IC(2)=(IF1)«000+J 

IC<3)=I*1000+J+1 

IC(4)=<I+1M000+J+1 

35 CONTINUE 
REMIND I0TEN2 

DO 38 IPG=1»1977 


SELE 21 
SELE 22 
SELE 23 
SELE 24 
SELE 25 
SELE 2b 
SELE 27 
SELE 28 
SELE 29 
SELE 30 
SELE 31 
SELE 32 
SELE 33 
SELE 34 
SELE 35 
SELE 36 
SELE 37 
SELE 38 
SELE 39 
SELE 40 
SELE 41 
SELE 42 
SELE 43 
SELE 44 
SELE 45 
SELE 46 
SELE 47 
SELE 48 
SELE 49 
SELE 50 
SELE 51 
SELE 52 
SELE 53 
SELE 54 
SELE 55 
SELE 56 
SELE 57 
SELE 58 
SELE 59 
SELE 60 
SELE 61 
SELE 62 
SELE 63 
SELE 64 
SELE 65 
SELE 66 
SELE 67 
SELE 68 
SELE 69 
SELE 70 
SELE 71 
SELE 72 
SELE 73 
SELE 74 
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READ(I0TEH2) IJ 

SELE 75 

DO 38 K=1»IP 

SELE 76 

38 IF<IC(K),EQ.IJ) IPT(II»K)=IPG 

SELE 77 

60 TO 100 

SELE 78 
SELE 79 

EQUATORIAL GRID 

SELE 80 
SELE 81 

40 IPT(II,5)=1 

SELE 82 

L1=XL(II) 

SELE 83 

L2=YL(II> 

SELE 84 

IL<1 )=Ll/5 

SELE 85 

IL(2)=IL(1H1 

SELE 86 

JL<1 )=(L2/5)+l 

SELE 87 

X<2)=X(l)-l 

SELE 88 

DO 45 Kl=l»2 

SELE 89 

DO 45 K2=l»2 

SELE 90 

IF ((ABS(XL(II)-IL(Kl)t5).GT»0*l).DR. (ABS(YL(II)-X(K2X5).6T.0il)SELE 91 

1 ) GO TO 45 

SELE 92 

IF (X(K2).EQ. 72) X<K2)=0 

SELE 93 

IPT(II,l)=JL(K2)l4+IL(Kmi 

SELE 94 

60 TO 100 

SELE 95 

45 CONTINUE 

SELE 96 

IF (JL(1).EQ.72) JL ( 1 > =0 

SELE 97 

IPT( II ? 1 )=X < 1 X4+IL < 1 )41 

SELE 98 

IPT(II»2)=JL(2)I4+IL(1)+1 

SELE 99 

IPT(IIi3)=JL(1)I4+IL(2)+1 

SELE 100 

IPT(IM)=X(2)I4FIL<2>+1 

SELE 101 

60 TO 100 

SELE 102 
SELE 103 

SOUTHERN HEMISPHERE 

SELE 104 
SELE 105 

50 IPT(IIf5)=3 

SELE 106 

L1=XL(II) 

SELE 107 

L2=YL(II) 

SELE 108 

IF (ABS(XL(II)).LT,85 t 0) GO TO 51 

SELE 109 

IPT(II»1)=1 

SELE 110 

IF (ABS(XL(IIH90. KLT.O.ll) 60 TO 100 

SELE 111 

51 CONTINUE 

SELE 112 

ILU)=(Ll/5)-l 

SELE 113 

X(1)=(L2/5)T1 

SELE 114 

IL(2)=IL(1)+1 

SELE 115 

X(2)=X(1)-1 

SELE 116 

DO 52 Kl=l » 2 

SELE 117 

DO 52 K2=l»2 

SELE 118 

IF ((ABS(XL<II)-IL(Kl)l5).GT.OJ).OR.(ABS(YL(II)-X(K2X5)fGT.0.1)SELE 119 

1 ) GO TO 52 

SELE 120 

IF (X(K2).£fl.72) X(K2)=0 

SELE 121 

IPT(IIfl)=X(K2)ll7-IL(Kl)+l 

SELE 122 

IF (IL(K).NE.O) GO TO 100 

SELE 123 

IPT(IM)=X(K2)I4+1 

SELE 124 

IPT<II»5)=1 

SELE 125 

GO TO 100 

SELE 126 

52 CONTINUE 

SELE 127 

IF (JUD.EQ.72) X(1)=0 

SELE 128 
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IF <IPT(II,l).EB.l) GO TO 54 SELE 12? 

IPT(II»1)=JL(1X17-IL(1)+1 SELE 130 

IPT< 1 1 f 2)=JL (2X17-IL { 1 ) +1 SELE 131 

IF ( IL (2) ) 55,53,55 SELE 132 

53 IPT(II,3)=JL( 1X4+1 SELE 133 

IPT(II,4)=JLI2X4+1 SELE 134 

IPT ( I I ,5)=1 133 SELE 135 

GO TO 100 SELE 136 

54 IPT(II,2)=JL(1X17-IL(2)+1 SELE 137 

IPT(II,3)=JL(2X17-IL(2)+1 SELE 138 

IPT 1 1 1 r5 ) =333 SELE 13? 

GO TO 100 SELE 140 

55 CONTINUE SELE 141 

IPT<II,3)=JL(1X17-IL<2)+1 SELE 142 

IPT(II,4>=JL(2X17-ILI2)+1 SELE 143 

GO TO 100 SELE 144 

c SELE 145 

C BOBERLINE POINTS SELE 146 

c SELE 147 

70 CONTINUE SELE 148 

C TWO NNC, TWO EQUATORIAL SELE 14? 

IPT < II ,5)=2211 SELE 150 

L=YL(II) SELE 151 

IPT(II,l)=<<L/5)+2X4 SELE 152 

Ipmi»2)=IPT(lM)-4 SELE 153 

IF (L.GE.355) IPT(II,1)=4 SELE 154 

c SELE 155 

IF OLT.l) J=1 SELE 156 

IF ( J.GT.51) >51 SELE 157 

IF (I.LT.LIHL(J)) I=LIHL(J) SELE 158 

IF (I.GT.LIHU(J)) I=LIHU(J) SELE 15? 

IC(1)=I*1000+J SELE 160 

IF ( (J»LT«15) .OR. ( J.GT .37) ) GO TO 72 SELE 161 

IC(2)=I*1000+J+1 SELE 162 

GO TO 76 SELE 163 

72 IF ( (J.NE.l) .AND. (J.NE.51)) GO TO 74 SELE 164 

IF (I.EB.LIHU(J)) 60 TO 73 SELE 165 

ICI2XI+1X1000+J SELE 166 

GO TO 76 SELE 167 

73 IC<2)=(I-1X1000+J SELE 168 

GO TO 76 SELE 169 

74 IF U*EQ,LINL(J)) GO TO 75 SELE 170 

IC(2)=LINU<J+1X1000+J+1 SELE 171 

60 TO 76 SELE 172 

75 1C(2)=LIML<J+1X1000+J+1 SELE 173 

c SELE 174 

76 REWIND I0TEM2 SELE 175 

HO 77 IPG=1 , 1977 SELE 176 

READ! I0TEM2) IJ SELE 177 

DO 77 K=l»2 SELE 178 

77 IF C IC<K) .Efl ► I J) IPT(II,K+2)=IPG SELE 17? 

60 TO 100 SELE 180 

c SELE 181 

80 CONTINUE SELE 182 
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C THREE NNC, ONE EQUATORIAL SELE 183 

IPT(II, 51=2212 SELE 184 

IC(2) = 0 SELE 185 

L=fl - (II> SELE 186 

IPT(IIf2)=((L/5)+1)I4 SELE 187 

IF (L*GEi355) IPT(IIf2)=4 SELE 188 

IF (I«£Q.LIHL( J)) SO TO 84 SELE 189 

IF (J»GT*37) GO TO 82 self 190 

IC<l)=ItlOOOTJ 5EEE 191 

IC(3)=IflOOOTJ+l SELE 192 

IC(4)=(I+1)I1000TJ+1 SELE 193 

GO TO 88 SELE 194 

82 IC(1)=(I+1)I1000TJ SELE 195 

K(Z)=ltlOOOiJ SELE 196 

IC<4)=I*1000+JT1 SELE 197 

GO TO 88 SELE 198 

84 IF (J>GT«37) GO TO 86 SELE 199 

IC( 1 >=< I-i X1000+JTT SELE 200 

IC(3)=IllOOWJFl SELE 201 

IC(4)=I410G0IJ SELF 202 

CO .0 88 S »3 

86 IC<l)=(I+l)tlOOO+J+l SELE 204 

IC(3)=(I+1)I1000+J SELE 205 

IC(4)=I*1000+J SELE 206 

C SELE 207 

88 REMIND I0TEH2 SELE 208 

DO 09 IPG=M977 SELE 209 

R£AD(I0TEH2J IJ SELE 210 

DO 89 K=l*4 SELE 211 

IF(IC(K)*EQ,0) GO TO 89 SELE 212 

IF(IC(K)«EO»IJ) IPT(II*K)=IPG SELE 213 

89 CONTINUE SELE 214 

c SELE 215 

100 CONTINUE sfi E 216 

10 150 1=1,16 SELE 217 

DO 150 J=l,5 SELE 218 

150 IPTH(I,J)=IPT(1,J) SELE 21? 

CALL S0RT41NP) S r,r 220 

Kim ^ m 

END SELE 222 

SUBROUTINE SETUP SETU 1 

COHHON/COTRAN/NBATA ( 1 9) , IC ,NI , IH, IX( 10) , IEX SETU 2 

DIHENSrON IPi5), ID<5) ,IT(5) iIDAT(12),8UFFER(64) SETU 3 

COHHON/IOTENP/IOTE«l,IOTEH2,IUGfNHCOP,DD,XrtJD,PHIl,PHI, SETU 4 

.NSAHE,RP1L,RD1L,RT1L,SP1L,SB1L,ST1L,RU1L,RV1L,SU1L,SV1L» SETU 5 

♦ MNf IDD, ITR , HI, PHIlR,THETAlR,DUhS(21),RPlS,RDlS SETU 6 

l,RTlSfRUlS,RVlS,SPlS,SDlS,STlS,SUlS,SVlS,UDSl,VDSl, SETU 7 

2UDL 1 , VBL 1 > UDS2 , VDS2 , UDL 2 , VDL 2 SETU 8 

COH«ON/PDTCOrt/IU4,HONTH,IDPR,P6(18rl?),TG(18,l?),DG(18,19) SETU 9 

, ,PSP(8, 10,12) SETU 10 

l,DSP(8,10,12),TSP(8,10,12),F'AQ(17,5),DAfl(17,5),TAO(17,5)fPDO(17,5)SETU 11 

2 ,DDG<17,5),TDQ<17,5),PR(20,10),DR(20,10),TR(20,10),UAQ(17»5) SETU 12 

3 ,UA0(17,5),UDQ(17,5),VD0(17,5),UR(25fl0),VR(25,10), SETU 13 

< PO»DG,TQ,UG,VQ,PQA,BOA, SETU 14 
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, TQAfUArVA»IOPOrPLP(25f 10) »DLP(25r 10) »TLP<25»10> 
l.ULP<25?10).VLP(25flO).UDL(25rlO)»VDL(25»10).UBS<25.10) 


2»VDS(25»10) 


COMnON/CHIC/DU«(18)fIHSr«»UCOEF(14»?)rVCOEF(14»9) 

DIMENSION IDUNI9) 

DATA I HA T/0 . 31 . 59 . 90 . 1 20 . 1 5 1.1 81 > 212 . 243. 273 . 304 . 334/ 
XMJD = 0. 

IF IHN.GT.12) GO TO 2 
IDA = IBAY(HN) + IDD 
DD = IDA 

IF (MOD<IYR.4>.EQ.O,AND.HH.GT.2> IDA = IDA + 1 
XHJD = 2439856. + 365. * (IYR - 68.) F IDA + INTUIYR 

i / 4.) 

C SECOND DATA CARD READS* FREE FIELDf THE FOLLOHING DATA! 


65.) 


IUG = UNIT NUMBER FOR GROVES DATA TAPE 
I UR = UNIT NUMBER FOR RANDOM SIGMA DATA 

(IF IUR=IUG UNIT IUG HILL BE READ) 

IUG = UNIT NUMBER FOR OBO DATA 

(IF IU9=IUG DATA ON TAPE ON UHIT IUG HILL BE READ) 
IU4 = UNIT FOR 4-0 INPUT P.B.T 0-25KM DATA 
I OPR = RANDOM OUTPUT OPTION 

IOPR=i RANDOM OUTPUT I0PR=2 NO RANDOM OUTPUT 

C IOPO = QBO OUTPUT OPTION 

C I0P9=1 QBO OUTPUT I0P0=2 NO QBO OUTPUT 

C NR1 = STARTING RANDOM NUMBER 

C NMCOP = NMC GRID DATA READ OPTION 

C NMC0P=0 READS NMC GRID DATA FROM UNIT IUG* OTHERWISE READS FORM 

C CARDS 

c I0TEH1=UNIT FOR 4-D P* D* T DATA (SCRATCH FILE* DOES NOT NEED TO 

C BE ASSIGNED) 

C I0TEM2-UNIT FOR NMC GRID POINTS (SCRATCH FILE. DOES NOT NEED TO 

C BE ASSIGNED) 

2 READ(5*10) IUG*IUR*IUQ*IU4*I0PR*I0PQ*NR1*NMC0P*I0TEM1*I0TEM2 

10 FORMAT ( ) 

HRITE(6*9000) IUGfIUR*IUO*IU4*IOPR*IOPQ*NRl*NMCOPiIOTEMl*IOTEM2 
t , XHJD 

IF (IQPR.LT.1.0R.I0PR.6T.2) GO TO 666 
IF (I0PG.LT.1.0R.I0PQ.GT.2) GO TO 666 
HONTH=HN 

IF (I0PR.EQ.2) GO TO 7 
R=RANB(NR1) 

R = RAND(O) 

R = RAND(O) 

C THIRD DATA CARD READS FREE FIELD* THE F0LL0WIN6 DATA? 


C 

C 

c 

c 

c 

c 

c 

c 

c 


RP1 

RD1 

RT1 

SD1 

RU1 

RV1 

SOI 

SV1 


INITIAL RANDOM PRESSURE PER TURBAI IONS* PERCENT 
INITIAL RANDOM DENSITY PERTURBATION. PERCENT 
INITIAL RANDOM TEMPERATURE PERTURBATION. PERCENT 
INITIAL STANDARD DEVIATION FOR RANDOM DENSITY 
PERTURBATION. PERCENT 
INITIAL EASTWARD HIND PERTURBATION. M/S 
INITIAL NORTHWARD HIND PERTURBATION. M/S 
INITIAL STANDARD DEVIATION FOR RANDOM EASTHARD HIND. 


SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
SETU 
M/S SETU 


... = INITIAL STANDARD DEVIATION FOR RANDOM NORTHHARD HIND. M/SSETU 
f:£AD(5.10) RP1L.RP1S.RD1L.RD1S.RT1L.RT1S.RU1L.RU1S.RV1L.RV1S SETU 


15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 
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RP1=RP1URP1S SETU 6? 

RD1=RD1S+RD1L SETU 70 

RT1=RT1S+RT1L SETU 71 

RU1=RU1L+RU1S SETU 72 

RV1=RV1L+RV1S SETU 73 

C AVOIRS TAPE SEARCH IF CURRENT MONTH IS SAME AS PREVIOUS MONTH SETU 74 

IF(NSAME.GT.O) GO TO 421 SETU 75 

7 IF (NSAHE.EQ.l) GO TO 621 SETU 76 

CALL GETNMC SETU 77 

C LOADS *HC 6RID DATA FROM INPUT UNIT TO SCRATCHFILE UNIT I0TEM2 SETU 78 

IF (MONTH.LT. 13) GO TO 12 SETU 79 

MI=13 SETU 80 

* 2=13 SETU 81 

C....,M0NTH=13 IS ANNUAL AVERAGE CASE SETU 82 

GO TO 13 SETU 83 

12 N1=H0NTH SETU 84 

M2=M0NTH I 6 SETU 85 

C SOUTHERN HEMISPHERE DATA IS 6 MONTHS DISPLACED FOR GROVES r SETU 86 

C STATIONARY PERTURBATIONS. AND RANDOM PERTURBATIONS SETU 87 

IF (H2.GT.12) M2=M2 - 12 SETU 88 

13 DO 100 1=1.234 SETU 89 

CALL RTRAN1 SETU 90 

C READS GROVES PRESSURE DATA SETU 91 

IF (IC.NE.'P*) GO TO 666 SETU 92 

IF (MI.EQ.M1) GO TO 30 SETU 93 

IF (HI.EQ.M2I GO TO 40 SETU 94 

GO TO 100 SETU 95 

30 KS=1 SETU 96 

GO TO 50 SETU 97 

40 KS=-1 SETU 98 

50 IH=(IH-20)/5 SETU 99 

TENX=10.HIEX SETU 100 

DO 60 J=1.10 SETU 101 

K=10+KS*(J-1) SETU 102 

60 PG(IH.K) = IX<J)*TEHX SETU 103 

C CONVERSION TO REAL AND STORAGE IN ARRAY COMPLETE SETU 104 

100 CONTINUE SETU 105 

DO 200 1=1 f 234 SETU 106 

CALL RTRAN1 SETU 107 

C..... READS 6R0VES DENSITY DATA SETU 108 

IFdC.NE.'D*) 60 TO 666 SETU 109 

IF (MI.EQ.M1) 60 TO 130 SETU 110 

IF (HI.E0.i12) 60 TO 140 SETU 111 

GO TO 200 SETU 112 

130 KS=1 SETU 113 

GO TO 150 SETU 114 

M® «S=-1 SETU 115 

150 IH=(IH-20)/5 SETU 116 

TENX=10.**IEX SETU 117 

DO 160 J=l»10 SETU 118 

K=10+KS*(J-1) SETU 119 

160 DG(IHrK) = IX(J)ITENX SETU 120 

C CONVERSION TO REAL AND STORAGE IN ARRAY COMPLETE SETU 121 

200 CONTINUE SETU 122 
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DO 300 1=1 f 234 

SETU 123 

CALL RTRAN1 

SETU 124 

C READS GROVES TEMPERATURE DATA 

SETU 125 

IF (IC.NE. * T* ) GO TO 666 

SETU 126 

IF (NI.EO.Nl) GO TO 230 

SETU 127 

IF (NI.EB.M2) GO TO 240 

SETU 128 

GO TO 300 

SETU 12? 

230 KS=1 

SETU 130 

GO TO 250 

SETU 131 

240 KS=-1 

SETU 132 

250 IH= I IH-20)/5 

SETU 133 

TENX=10.**IEX 

SETU 134 

DO 260 J-l r 10 

SETU 135 

K=1Q+KS<(J-1) 

SETU 136 

260 TG(IHfK) = IX(J)*TENX 

SETU 137 

C CONVERSION TO REAL AND STORAGE IN ARRAY COMPLETE 

SETU 138 

300 CONTINUE 

SETU 139 

IF (NONTH.LT. 13) GO TO 308 

SETU 140 

C ANNUAL MEAN CASE - BOTH HEMISPHERES EQUAL 

SETU 141 

DO 304 1=1*18 

SETU 142 

DO 304 J=l» 9 

SETU 143 

J20=20-J 

SETU 144 

PG ( I * J)=PG< I * J20) 

SETU 145 

DG(IfJ>=BG(I<J20) 

SETU 146 

TG(I-J)=TG(IfJ20) 

SETU 147 

304 CONTINUE 

SETU 148 

308 DO 360 1=1*1248 

SETU 14? 

CALL RTRAN 

SETU 150 

C READS STATIONARY PERTURBATIONS DATA (TO BE STORED IN PSP* DSP* 

ANDSETU 151 

C TSP ARRAYS) 

SETU 152 

IC=NDATA(1) 

SETU 153 

MI=NDATA(2) 

SETU 154 

IH=NDATA<3) 

SETU 155 

L0N=NDATA(4) 

SETU 156 

DO 311 K=1 » 5 

SETU 157 

IP(K)=NDATA(4+K) 

SETU 158 

ID<K)=HDATA(9+K) 

SETU 15? 

311 IT(K)=NDATA<14+K> 

SETU 160 

IF <IC.NE*'S* ) GO TO 666 

SETU 161 

IF (HI.EQ.Nl) GO TO 320 

SETU 162 

IF (NI.EQ.M2) 80 TO 330 

SETU 163 

GO TO 360 

SETU 164 

320 KS=1 

SETU 165 

GO TO 340 

SETU 166 

330 KS=-1 

SETU 167 

340 ISH=2+(IH-44l/8 

SETU 168 

L=<LON+ 20)/30 

SETU 169 

IF<IH.LT .52) ISH = <IH-20)/10 

SETU 170 

IF (IH.GT.84) ISH=8 

SETU 171 

DO 350 J=l*5 

SETU 172 

K=5+KS*(J+(KS-l)/2) 

SETU 173 

PSP(ISH-K*L) = IP(J)/1000, 

SETU 174 

DSP(ISH.R.L) = ID( Jl/1000. 

SETU 175 

350 TSP(ISHiKfL) = IT(J)/1000. 

SETU 176 
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C...., CONVERSION TO real AND STORAGE IN ARRAYS CONPLETE 
360 CONTINUE 

IF (MONTH, LT. 13) GO TO 368 

c ANNUAL MEAN CASE - DOTH HEMISPHERES EQUAL 

DO 364 1=1,8 
DO 364 K=lrl2 
DO 364 J=l,5 
J10=ll-J 

PSPd,J»K)=PSPd,J10,K) 

DSPd,JfK)=DSPd»J10,K) 

TSPd, J,K)=TSP(I, J10,K) 

364 CONTINUE 

C MOVES PAST 2ND EOF ON UNIT IUG 

368 READ(IUG,??99,END=36P) IDUKNY 
9999 FORMAT (A1 ) 

60 TO 368 

369 CONTINUE 
IF(I0PR,EQ,2) GO TO 440 

C ropR=1 ^ADS RANDOM SIGMAS. I0PR=2 ZEROS RANDOM SIGMAS 

DO 430 1=1,260 

IF (IUR,EO,IUG) GO TO 375 
READ (IUR,380) IC,MI,IH,IP,ID,IT 
E US ES FORTRAN READ ON UNIT IUR IF IUR NEQ IUG 

380 FORMAT (!X,Al,l2,I4,3dX,5I4)) 

GO TO 385 

375 CALL RTRAN 

C.... .READS FROM UNIT IUG IF IUG = IUR 
IC=NDATAd) 

MI=NDATA(2) 

IH=NDATA(3I 
DO 381 K=l,5 
IP(K)=NDATA(3+K) 

ID(K)=NDATA(8+K) 

381 IT<K)=NDATA<13++0 

385 IF (IC.NE.'R 1 ) GO TO 666 

C Ml = NORTHERN HEMISPHERE MONTH 

IF (MI.EO.Ml) GO TO 390 
C SOUTHERN HEMISPHERE MONTH 
IF (MI.Efl.M2) GO TO 400 

C «2 = Ml + 6 UNLESS Ml = M2 = 13 

GO TO 430 
390 KS=1 
GO TO 410 
400 KS=-1 

410 IF (IH.LT.95) IHR=(IH-20)/5 

C I HR = HEIGHT INDEX 

IF (IH.GE.95) IHR = 14 + (IH - 80) / 20 
DO 420 J=l,5 

K = 5 + KS * (J + <KS - 1) / 21 

C K = LATITUDE INDEX 1-5 = LAT -90 TO -10, 6-10 = LAT +10 TO +90 

Pfi(IHR,(0 =(IP(J)/1000, )W2 
DR(IHR,K> =(ID(J)/1000,)«2 
420 TR(IHR,X) =(IT(J)/1000 . )W 
430 CONTINUE 
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IF (HONTH.LT. 13) GO TO 460 

C ANNUAL MEAN CASE - BOTH HEMISPHERES EQUAL 

DO 435 1=1 f20 
DO 435 J=1 *5 
J10=U-J 

PR(I»J)=PR(IfJ10) 

DR<It J)=DR<If J10) 

TR(I*J)=TR(I*J10) 

435 CONTINUE 
GO TO 460 
440 DO 450 1=1*20 
DO 450 J=l* 10 
PR(IrJ) = 0. 

DR(IfJ) = 0, 

450 TR(IrJ) = 0. 

C RANDOM SIGMAS ARE ZEROED IF I0PR=2 

DO 455 1=1*25 
DO 455 J=lflO 
UR(I>J)=0. 

455 VR(IfJ) = 0. 

GO TO 500 

460 DO 490 1=1 *325 

IF (IUR.EQ.IUG) GO TO 462 
READ( IURf 465) IC* HI * IH* IF'* ID 

C READS RANDOM MIND STANDARD DEVIATIONS MITH FORTRAN READ FROM 

C UNIT I UR IF I UR NEQ IUG 

465 FORMAT ( IX. A2. 12*14 )2(1X»5I4) ) 

GO TO 467 
462 CALL RTRAN 

C READS FROM UNIT IUG IF IUG = IUR 

IC^NDATAU) 

MI=NDATA(2) 

IH=NDATA(3> 

DO 461 K=l*5 
I P ( K ) =NDAT A ( 3+K ) 

461 I D ( K ) =NDAT A ( 84K ) 

467 IF (IC.NE.'RM*) GO TO 666 
C NORTHERN HEMISPHERE MONTH 
IF (MI.EQ.M1) GO TO 470 
C SOUTHERN HEMISPHERE MONTH 
IF (MI.EQ.M2) GO TO 475 
GO TO 490 
470 KS=1 
GO TO 480 
475 KS=- 1 

480 IF (IH.LT.95) IHR=l+IH/5 
C HEIGHT INDEX 

IF ( IH.GE.95) IHR=19+(IH-8O)/20 
DO 485 J=l*5 
C LATITUDE INDEX 

K=5+KS* < J+ < KS- 1 ) /2 ) 

UR< IHR*K>=< IPX J>**2)*1» 

485 VR(IBR>K)-(ID(J)M2)I1. 
m CONTINUE 
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IF (HONTH.LT. 13) GO TO 500 

c ANNUAL HEAN CASE - BOTH HEMISPHERES EQUAL 

DO 495 1=1,25 
DO 495 J=l,5 
J10=ll-J 

UR(I,J)=UR(I,J10) 

WR(I,J)=W(IrJ10) 

495 CONTINUE 

C HOMES PAST 3RD EOF ON UNIT IUG 
IF(I0PR,EQ,2) GO TO 900 

500 READ ( IUG , 9999 * END=501 ) IDUHHV 
GO TO 500 

501 CONTINUE 

DO 840 1=1,25 
IF(IUR.EQ.IUG) GO TO 800 
READ(IUR,380) IC,NI,IH,IP,ID«IT 

c OSES FORTRAN READ ON UNIT IUR IF IUR NEO IUG 

GO TO 820 
800 CALL RTRAN 

C READS FROM UNIT IUG IF IUR = IUG 

IC=NDATA<1) 

NI=NDATA(2) 

IH=NDATA(3) 

DO 810 K=l,5 
IP(K)=NDATA(3fK) 

ID(K)=NDATA(8+K) 

810 IT(K)=NDATA(13+K) 

820 IF(IH,GT.90) IH=70+(IH/4) 

IH=ll(IH/5) 

IFdC.NE.'P'.OR.IH.NE.I) GO TO 666 
DO 830 J=l,5 
PLP(I,J+5)=IP(J)/1000. 

PLP(I,6-J)=IP(J)/1000. 

DLP(I,J+5)=ID(J)/1000. 

BLP(I,6-J)=ID( J)/1000. 

TLP(I,J+5)=IT(J)/1000. 

830 TLP(I,6-J)=IT(J)/1000. 

840 CONTINUE 
DO 865 1=1,25 
IF(IUR.EQ.IUG) GO TO 845 
READ (IUR, 465) 1C, HI, IH, IP, ID 
GO TO 355 
845 CALL RTRAN 
IC=NDATA(1) 

NI=NDATA(2) 

IH=NDATA(3) 

DO 850 K=l,5 
IP(K)=N0ATA(3+fc) 

850 ID(K)=NDATA(8+K) 

855 IF(IH.GT.90) IH=70+(IH/4) 

IH=l+dH/5) 

IF( I. HE. IH. OR. IC.NE.'PH*) GO TO 666 
DO 860 J=l, 5 
ULP(I,JL5)=IP(J)/1000. 
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ULP(I>6-J)=IP(J)/1000. 

VLP<If J+5)=ID(J>/1000. 

860 VLP(I»6-J)=ID(J)/1000« 

865 CONTINUE 
DO 888 1=1 f 25 
IFUUR.EG.IUG) GO TO 870 
READ < IUR ? 868 ) IC f HI » IHf IP» ID 
868 F0R«AT(lXfA2-I2fI4 f 2(lX»5I5)> 

GO TO 880 
870 CALL RERAN 
lOHDATA(l) 

HI=NDATA(2) 

IH=NDATA(3) 

DO 875 K=1 »5 
IF'(R)=NIiATA(3TK) 

875 ID(K)=NDATA(8FK) 

880 IF(IH.GT,?0) IH=70+<IH/4) 

IH=l+( IH/5) 

IFUH.NE.I.OR.IC.NE. 'CS' )GO TO 666 
DO 885 .1=1 » 5 
unsn»j+5)=up<J)/iooo.) 

UDS<I«6-J)=< IP< JJ/1000. ) 
V[iS(I.J+5)=UD(J)/1000.) 

885 V0S(It6-J)=UDU)/1000. ) 

888 CONTINUE 
DO 898 I=lf 25 
IF(IUR.EQ.IUG) GO TO 890 
READ(IUR*868)IC«HMH>IPfID 
GO TO 894 
890 CALL RERAN 
IC=NDATAd) 

NI=NDATA<2) 

IH=NDATA(3> 

DO 892 K=l»5 
IP(K)=NDATA(3+K) 

892 I0(K)=N0ATA<84K) 

894 IFdH.GT.90) IH= 70KIH/4) 

IH=1+ ( IH/5) 

IFIIH .ME. I . OR . IC« HE. "CL 1 ) GO TO 666 

no 896 j=i»5 

UDL ( I f J+5 ) = i IF'( Jl/1000. ) 
UDLIR6-J)=dP(J)/1000.) 

UDLI I r J+5)=( IB( JI/1000. ) 

896 VDL(Ii6-J)=<ID(J)/1000.) 

898 CONTINUE 
GO TO 910 
900 DO 905 1=1*25 
DO 905 J=I*iO 
PLPlIf J)=0. 

DLPtlr J)=0. 

TLF'< I * J )=0. 

LLP(IrJ>=0. 

VLP(Ir.J)=0. 

UDS(IrJ)=0. 
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UOL(I( J)=0. SETU 393 

VDS(I(J!=0. SETU 394 

VDKIf J)=0. SETU 395 

905 CONTINUE SETU 396 

C HOVES POST NEXT EOF ON TAPE SETU 397 

IF (I0PQ.EQ.2) GO TO 600 SETU 398 

910 READ (IUG r 9999 1 END=91 1 ) ID MY SETU 399 

GO TO 910 SETU 400 

911 CONTINUE SETU 401 

c IOPO--1 READS QBO PARAMETERS* I0PQ=2 ZEROS THESE PARAMETERS SETU 402 

DO 530 1=1 r 16 SETU 403 

IF (IUQ.EQ.IUG) GO TO 525 SETU 404 

REA0(IUG<520) IC» IH» IX SETU 405 

C READS WITH FORTRAN FROM UNIT IUO IF IUQ NEB IU6 SETU 406 

520 FORMAT (lX»A2d3(5<I4d5» SETU 407 

GO TO 527 SETU 408 

525 CALL RTRAN2 SETU 409 

C READS FROM UNIT IUG IF IUO = IUG SETU 410 

527 IF dC.NE.'BP') GO TO 666 SETU 411 

IH = <IH-5>/5 SETU 412 

DO 530 J=l*5 SETU 413 

C CONVERT FROM INTEGER PER MIL - QBO PRESSURE AMPLITUDE SETU 414 

PAO(IH>J) = IX(2*J-1 1/1000, SETU 415 

C QBO PRESSURE PHASE (DATS PAST JAN 0* 1966) SETU 416 

530 PDQ(IHrJ) = IX(2*J)tl, SETU 417 

DO 531 I = 1(5 SETU 418 

PAfl(M) = 0. SETU 419 

531 CALL PHASE(PBQ(2fI)(15.(PDQ(3fI)(20.fPDQ(l»IM0.) SETU 420 

DO 540 1=1*16 SETU 421 

IF (IUQ.EQ.IUG) GO TO 535 SETU 422 

READ (IUQf520> ICiIHdX SETU 423 

GO TO 537 SETU 424 

535 CALL RTRAN2 SETU 425 

537 IF (IC.NE.'QD*) GO TO 666 SETU 426 

IH=IIH-5)/5 SETU 427 

DO 540 J=l(5 SETU 428 

C... CONVERT FROM INTEGER PER MIL - QBO DENSITY AMPLITUDE SETU 429 

DAB(IH(J) = IX(2*J-1)/1000» SETU 430 

C QBO DENSITY PHASE (DAYS PAST JAN 0* 1966) SETU 431 

540 DDQ(IH»J)=IX(2«J)I1. SETU 432 

DO 541 I = 1*5 SETU 433 

DAQ(lrl) = 0. SETU 434 

541 CALL PHASE(DD0(2(I)(15.fBDQ<3(I)(20.(DD0(lfIM0.) SETU 435 

DO 550 I=ld6 SETU 436 

IF (IUQ.EQ.IUG) GO TO 545 SETU 437 

READ (IUG(520) ICdHdX SETU 438 

GO TO 547 SETU 439 

545 CALL RTRAN2 SETU 440 

547 IF (IC.NE.'QD 60 TO 666 SETU 441 

IH = (IH- 5)/5 SETU 442 

DO 550 J=l(5 SETU 443 

C CONVERTS FROM INTEGER PER MIL - QBO TEMPERATURE AMPLITUDE SETU 444 

TAQ(IHfJ) = IX(2*J-1)/1000. SETU 445 

C QBO TEMPERATURE PHASE SETU 446 


D-65 



550 TDQ(IHjJ) = 1X(2*J>*1. SETU 447 

BO 551 I = 1,5 SETU 448 

TAQ(lrl) = 0, SETU 449 

551 CALL PHASE(TDQ(2,I)»15.,TBQ(3»I),20.,TBQ(1,I)»10.) SETU 450 

DO 560 1=1 >16 SETU 451 

IF (IUQ.EQ.IUG) GO TO 555 SETU 452 

C REAOS WITH FORTRAN IF IUQ NEQ IUG SETU 453 

READ (IUG, 520) IC,IH,IX SETU 454 

GO TO 557 SETU 455 

555 CALL RTRAN2 SETU 456 

C READS FROM UNIT IUG IF IUQ = IUG SETU 457 

557 IF (IC.NE.'QU*) GO TO 666 SETU 458 

IH=(IH- 5)/5 SETU 459 

DO 560 J=l>5 SETU 460 

C EASTWARD WIND QUO AMPLITUDE - CONVERTED TO M/S SETU 461 

UAQ(IHjJ) = IX(2 * J ' 1) / 10. SETU 462 

C EASTWARD WIND QBO PHASE (DAYS PAST JAN 0. 1966) SETU 463 

560 UDQ<IH,J>=IX(2*J)<1. SETU 464 

DO 561 I = 1 r 5 SETU 465 

UAQ(lfl) = 0. SETU 466 

561 CALL PHASE ( UDG(2> I ) , 15. ,UDG<3, I ) » 20. *UDQ( 1 , 1 ) , 10. ) SETU 467 

DO 570 1=1,16 SETU 468 

IF (IUQ.EQ.IUG) GO TO 565 SETU 469 

READ(IUQ,520) IC,IH,IX SETU 470 

GO TO 567 SETU 471 

565 CALL RTRAN2 SETU 472 

567 IF (IC.NE.’QV) GO TO 666 SETU 473 

IH=(IH- 5)/5 SETU 474 

DO 570 J=l»5 SETU 475 

C NORTHWARD WIND QBO AMPLITUDE - CONVERTED TO M/S SETU 476 

VAQ(IH,J) = IX (2 1 J - 1) / 10. SETU 477 

C NORTHWARD WIND QBO PHASE (DAYS PAST JAN 0,1966) SETU 478 

570 VDQ(IH,J)=IX(2*J)*1. SETU 479 

DO 571 I = 1,5 SETU 480 

VAQ(1,I> = 0. SETU 481 

571 CALL PHASE(VDQ(2,I),15.,VD0(3,I>,2O.,VDQ(l,I),10.) SETU 482 

GO TO 611 SETU 483 

600 DO 610 1=1, IUG SETU 484 

DO 610 J=l,5 SETU 485 

PAQ(I,J) = 0. SETU 486 

DAQ(I,J) = 0. SETU 487 

TAQ(I,J) = 0. SETU 488 

PDG(I,J> = 0. SETU 489 

DDG(I,J) = 0. SETU 490 

TDQd, J) = 0. SETU 491 

UAQd, J)=0. SETU 492 

UDQ(I,J)=0. SETU 493 

VAQ(I,J)=0. SETU 494 

VD0(I,J)=O. SETU 495 

610 CONTINUE SETU 496 

C MOVE PAST NEXT EOF ON TAPE, SETU 497 

611 RE AD < IUG , 9999 , END=609 ) IDUMMY SETU 498 

GO 10 611 SETU 499 

609 CONTINUE SETU 500 
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C. * .READ IN SPHERICAL HARMONICS COEFFICIENTS SETU 501 

DO 615 IFR=1.MN SETU 502 

DO 613 JFR=1.14 SETU 503 

REAB(IUG.640)IF1.IF2. (IDUM(I) .1=1.9) SETU 504 

640 F0RMAT(2X?19I7) SETU 505 

DO 613 1=1.9 SETU 506 

613 UCOEF ( JFR. I )=FLOAT ( IDUH( I ) )/100. SETU 507 

DO 612 JFR=1.14 SETU 508 

READ(IUG.640)IFl.IF2i(IDUM(I >.1=1.9) SETU 509 

DO 612 1=1.9 SETU 510 

612 VCOEFI JFR. I )=FLOAT ( IDUMI I ) )/100. SETU 511 

615 CONTINUE SETU 512 

C ZEROS QBO PARAMETERS IF IOPO = 2 SETU 513 

C REMINDS TAPE UNIT IUG SETU 514 

REWIND IUG SETU 515 

C SETU 516 

621 R=H1 SETU 517 

IFIHl.LT .25.) R=25, SETU 518 

CALL RTERP1R .PHI1.PR.DR.TR.SP1.SU1.ST1) SETU 519 

CALL INTRUM < PLP » DLP . HI . PHI 1 . PLP1 » 0LP1 ) SETU 520 

CALL INTRUV(TLP.DLP.Hl.PHIl.TLPl.R) SETU 521 

SP1L=SGRT<PLP1*ABS(SP1>)*100. SETU 522 

SP1S=SGRT(<1.-PLP1)*ABS(SP1))*100. SETU 523 

SD1 L=SQRT ( DLP 1 4ABS ( SB1 ) ) t 100 . SETU 524 

SD1S=SQRT ( < 1 ,-DLPl )*ABS(SD1 ) )I100, SETU 525 

ST1L=SORT(TLP1*ABS(ST1))*100. SETU 526 

ST1S=SQRT((1,-TLP1)*ABS(ST1))*100. SETU 527 

CALL IHTRUV(UR.UR.Hl.PHIl.SUl.SVl) SETU 528 

CALL INTRUV(ULP.VLP.Hl.PHIl.ULPl.VLPl) SETU 529 

SU1 L=SORT ( ULP1 t ABS ( SU1 ) ) SETU 530 

SU1 S=SORT ( ( 1 . -ULP1 ) 4ABS ( SU1 ) ) SETU 531 

SV1 L=SQRT ( VLP 1 > ABS ( SO 1 ) ) SETU 532 

SV1S=S0RT ( ( 1 ,-VLPl )$ABS(SV1 ) ) SETU 533 

CALL INTRUVI UDL.UDL.H1.PHI1.UDL1.UDL1) SETU 534 

CALL INTRUV(UDS.VDS.Hl.PHIl.UDSl.VDSl) SETU 535 

UDL 1=UDL 1*100. SETU 536 

VDL1=VDLU100. SETU 537 

UDS1=UDSI*100. SETU 538 

VDS1=VDS1*100. SETU 539 

WRITEC6.9001) RP1L.RD1L.RT1L.SP1L.SD1L.ST1L.RU1L.RV1L.SU1L.SV1L. SETU 540 
TLARGE* SETU 541 

WRITE<6.9001)RP1S.RD1S.RT1S.SP1S.SD1S.ST1S.RU1S.RV1S SETU 542 

1.SU1S.SV1S. ‘SMALL 1 SETU 543 

HRIT£(6.9002)UDL1.VDL1.UDS1.YDS1 SETU 544 

HRITEC6.9003) SETU 545 

RP1L=RP1L/100. SETU 546 

RD1L=RB1L/100. SETU 547 

RT1L=RT1L/100. SETU 548 

SP1L=< SP1L/100 . ) SETU 549 

SD1L='!SD1L/100. ) SETU 550 

ST1L=(ST1LX100.) SETU 551 

RP1S=RP1S/100. SETU 552 

RD1S=RD1S/100, SETU 553 

RTlS=RTlS/100. SETU 554 
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SP1S=SP1S/100. SETU 555 

SD1S=SB1$/100. SETU 556 

ST1S=ST1S/!0C. SERI 557 

UBL1=UDL1/100. SETU 558 

VDL1=VBL1/100. SETU 559 

UDS1=UBS1/100. SETU 560 

VPS1=VBS!/100. SETU 561 

WRITE (6 *630) SETU 56? 

RETURN SET'J 563 

666 WRITE (6 *700) IUGf IURt IUO» IOPR. IOPO»NR1 tNHCOP. I0TEM1 ? I0TE«2» SETU 564 

WONTH'IC'NI'IHf IX»IEXf IPrlD'ITjSDl SETU 565 

700 FORMA’! ' ERROR IN SETUP INPUT’ 7. 1X.5I3. 110*413. A2. 13. 14. /.11I4. SETU 566 

SETU 567 

STOP SETU 568 


630 F0RMAK27X. ’UNPERTURBED (MONTHLY MEAN) MIX? ’MEAN PLUS PERTURBATIOSETU 569 


INS’ .9X. ’THERMAL* ./»23X.2<34< ’-’ ) .2X)»3X. ’WIND* .6X. ’PERTURBATION MASETU 570 
SLUES'./?* HEIGHT LAT WEST PRES. DENS. TEMP GEOSTROPH. SETU 571 
3 PRES. DENS. TEMP TOTAL SHEAR V.2X. ’(KMIMIX.'LOSETU 572 

4N’.4X.‘(NT/ (KG/ (DEG WIND <M/S) (NT/ (KG/ (DEG SETU 573 
5WIND <*»/S> (H/S/KM) ’ r28< ’-•)»/,• TINE (DEG) <DE6)*r2(' MMSETU 574 
62? mZ) KEL- M0( , -’))f2X.8( , -').‘ P D T U V SETU 575 
7 HV (SEPMSX.’VIN) E-W N-S'.20X. *VIN) E-W N-S E-W NSETU 576 

8-S U> (?) <?.) M/S M/S CM/S 7) SETU 577 

9000 FORMAT I . * GROVES INPUT UNIT = M2-T43) ’RANDOM INPUT UNIT = M2. SETU 578 
1T83. 'OBO INPUT UNIT = M2 ./.’ 4-D INPUT UNIT = M2 »T43»* RANDOM SETU 579 


20PTI0N = M2.T83. ’QBO OPTION = M2./.’ FIRST RANDOM NUMBER = 
215. 

3/ > ' Nile READ OPTION = ’.I2.T43.‘4-D P.D.T DATA SCRATCH UNIT = 1 
412. /»■ NMC GRIP POINTS SCRATCH UNIT = M2. T43. ’JULIAN DATE = 1 

5F?.l*/> 

9001 FORMAT I * INITIAL P.D.T = , .3(F6.2.‘ X ‘).T60. ’SIGMA P.D.T = ‘ 
13(E6.2»' X ’>./»’ INITIAL U.V = ’,2(F7. 2.’ M/S 
2U.V = ’.2<T7.2.’ H/S ’). 7X.A5. IX. ’SCALE’/) 

9003 FORMAT (//* ** PERCENT DEVIATIONS FROM 1962 US STANDARD * 

1 .’ATMOSPHERE APPEAR BELOW PRESSURE. DENSITY AND TEMPERATURE 

2 ’VALUES *«'//> 

9002 FORMA’C INITIAL UDL.VDL = ’.2(F6.2»’ X ’). 

1760. ' INITIAL UBSrVDS = ’.2(F6,2.’ X ’)) 

END 

SUBROUTINE 5QRMNP) 


’.SETU 580 
SETU 581 
. SETU 582 
. SETU 583 
SETU 584 
. SETU 585 
*),T60. ’SIGMA SETU 586 
SETU 537 
SETU 588 
SETU 589 
SETU 590 
SETU 591 
SETU 592 
SETU 593 


SORTS POINTS FOR SEQUENTIAL TAPE READING 

ASSIGNS POINT NUMBERS BY ORICR ON TAPE. NOT BY GRID 

COMMON /ORDER./ IPT U6-5).IREAP<65.3> 

DO 1 1=1.65 
DO I J=1’3 
1 IREABU'J'=0 
DO ? 1=1. NP 

IF(JP T (I.5).LT,1> GO TO 10 
IF ( IP'! ( ]. 5). EG. 1) GO TO 9 
IMP’ M5!. EG. 2) GO TO 2 


SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 


1 

c 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
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IF<IPT(I*5).E0.3) GO TO 4 

SORT 

16 

IF(IPT(I, 5), EQ, 1133)60 TO 6 

SORT 

17 

IF(IPT(If5),EQ,2211) GO TO 7 

SORT 

18 

IFdPT ( I »5) <EG*2212)G0 TO 8 

SORT 

19 

IF dPTd>5).EQ«333) GO TO-4 

SORT 

20 

GO TO 10 

SORT 

21 

2 DO 3 J=l»4 

SORT 

22 

IF(IPT(I»J).LT.l) GO TO 3 

SORT 

23 

IPT(I)J)=IPT(IrJ)+288 

SORT 

24 

3 CONTINUE 

SORT 

25 

GO TO 9 

SORT 

26 

4 DO 5 J=1 »4 

SORT 

27 

IF< IPT ( I » J) .LT * 1 ) GO TO 5 

SORT 

28 

IPT( I r J )=IPT < I » JJ+2265 

SORT 

29 

5 CONTINUE 

SORT 

30 

GO TO 9 

SORT 

31 

6 IF(IPT(I,l).GT,0)IPT(M)=IPT(M)+2265 

SORT 

32 

IF<IPT(I*2),GT.0)IPT(I>2MPTUr2)+2265 

SORT 

33 

GO TO 9 

SORT 

34 

7 IFdPTd?3).GT«0)IPTdi3)=IPTdf3)+288 

SORT 

35 

IF ( IPT ( I »4 ) .GT»0)IPT(Ii4)=IPT(I»4)+2S8 

SORT 

36 

GO TO 9 

SORT 

37 

8 IFdPTdrl) .GT .0)IPT(Iil)=IPT(I>l)+288 

SORT 

38 

IF(IPT(I»3),GT.0)IPT(I»3>=IPT(I»3)+288 

SORT 

39 

IF(IPT(I»4).GT.0)IPT(I»4)=IPT(I»4)t2B8 

SORT 

40 

9 CONTINUE 

SORT 

41 


SORT 

42 

REORDERS POINT NUMBERS FOR READ 

SORT 

43 


SORT 

44 

10 IR=0 

SORT 

45 

DO 13 K=1?NP 

SORT 

46 

DO 13 L=l»4 

SORT 

47 

NP=IPT(K>L) 

SORT 

48 

IF(HP.LTd) GO TO 13 

SORT 

49 

11 II=K 

SORT 

50 

JJ=L 

SORT 

51 

DO 12 1=1 »NP 

SORT 

52 

DO 12 J=1j4 

SORT 

53 

IF <IPT(IfJ).LT.l) GO TO 12 

SORT 

54 

IF(IPT(IfJ).GT.3490) GO TO 12 

SORT 

55 

IF<IPT(I.J)*GE.NP) GO TO 12 

SORT 

56 

II=I 

SORT 

57 

JJ=J 

SORT 

58 

MP=IPT(I»J) 

SORT 

59 

12 CONTINUE 

SORT 

60 

IF<IPT(IIf JJ) *GT. 3490) GO TO 14 

SORT 

61 

IR=IR+1 

SORT 

62 

IREADdRd)=II 

SORT 

63 

IREAD(IR»2)=JJ 

SORT 

64 

IREAD(IR»3)=IPT(IIf JJ) 

SORT 

65 

IPT ( II » JJ>=IPT(II* JJ)+9000 

SORT 

66 

HP=IPT (Kf L > 

SORT 

67 

IF(HP,GT.3490) GO TO 13 

SORT 

68 

GO TO 11 

SORT 

69 
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13 CONTINUE SORT 70 

14 RETURN SORT 71 

END SORT 72 

SUBROUTINE SPHERE ( HN , IH f PHIR » THETR » US r VS > SPHE 1 

COHNON/CH I C/DUM ( 1 8 1 , INS YM , UCUEF1 1 4 , 9 1 , UCOEF ( 14 r9 ) SPHE 2 

DIMENSION Z (?) SPHE 3 

COSPHI=COS(PHIR> SPHE 4 

C0STHET=C0S(THETR1 SPHE 5 

SINPHI-SIN(PHIR) SPHE 6 

SINTHET=SIN(THETR) SPHE 7 

Z(1>=1, SPHE 8 

Z(2)=SINPHI SPHE 9 

Z<3)=COSTHET*COSPHI SPHE 10 

Z(4)=SINTHETICOSPHI SPHE 11 

Z(5)=(3*(SINPHI«2)-l>/2. SPHE 12 

Z ( A ) =COS THETI ( 3ICOSPHIISINPHI ) SPHE 13 

Z ( 7 )=SINTHETt ( 3ICOSPHIISINPHI ) SPHE 14 

Z(8)=(2*(COSTH£T)«2-l)*(3t<COSPHI)«2) SPHE 15 

Z ( 9 ! = ( 2*S I NTHETICOSTHET ) I ( 3* ( COSPHI ) 112 ) SPHE 16 

5 IH5=IH/5-4 SPHE 17 

IFP=9 SPHE 18 

IHIH.GT .65)IFR=4 SPHE 19 

US=0. SPHE 20 

US=0. SPHE 21 

DO 10 1=1 » IFR SPHE 22 

US=US+Z(I1*UC0EF(IH5,I) SPHE 23 

VS=MS+Z( I JIMCOER IH5» I ) SPHE 24 

10 CONTINUE SPHE 25 

RETURN SPHE 26 

END SPHE 27 

SUBROUTINE STDATM(Z,T,P,B> STDA 1 

DIMENSION ZS(35)»TMS(351»MMS(35)>PS(35) STDA 2 

DATA (ZS(I1, 1=1, 351/0., 11.019, 20.063, 32.162» 47,35. STDA 3 

I 52.429. 61,591. 79,944. 90,. 95, » 100,. 105,. 110,. 115. . STDA 4 

* 120. . 135.. 150,. 155,. 160.. 165,. 170,. 180,. 190,. 210,. STDA 5 

* 230,. 265,. 300,. 350,. 400., 450,. 500,. 550., 600., 650. , 700./ STDA 6 

DATA (TMS(I), 1=1, 351/288, 15, 216.65,216.65, 228.65, 270, 65, 270. 65, STDA 7 

t 252.65, 180,65, 180.65, 0,, 210,65. 0., 260,65. 0., 360,65. STDA 8 

I 0., 960,65. 0., 1110.65, 0., 1210.65, 0., 1350.65, 0., 1550.65, STDA 9 

* 0., 1830.65. 0., 2160.65, 0., 2420.65, 0., 2590,65, 0., STDA 10 

* 2700.65/ STDA 11 

DATA (WMS(I), 1=1, 351/28.9644, 28.9644, 28.9644, 28,9644, 28.9644, STDA 12 

t 28,9644. 28.9644, 28.9644, 28.9644, 28.94, 28.88, 28.75, 28.56, STDA 13 

* 28.32, 28.07, 27,37, 26.92, 26.79, 26.66, 26.52, 26.45, 26.15, STDA 14 

t 25.85, 25.27, 24.69, 23.67, 22.66, 21.24, 19.94, 18.82, 17.94, STDA 15 

* 17.29', 16.84, 16.50, 16.17/ STDA 16 

DATA <PS(I>. 1=1,351/1013.25, 226.32, 54.7487, 8.68014, 1.10905, STDA 17 

* .590005- .192099, 1.0377E-2, 1.6438E-3, 0., 3.0O75E-4, 0., STDA 18 

* 7.3544F-5- 0., 2-5217E-5, 0., 5.0617E-6, 0., 3.694ZE-6, 0., STDA 19 

t 2.7926E-6, 0., 1.6852E-6, 0., 6.9604E-7, 0., 1.8838E-7, 0., STDA 20 

t 4.0304E-8- 0., 1.0957E-8, 0., 3.4502E-9, 0., 1.1918E-9/ STDA 21 

IHZ.LT.0.1 GO TO 81 STDA 22 

R0=6356.36 STDA 23 

G0=9.P066 STDA 24 
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WH0=28 . 9644 
RS=8314.32 
Z«=Z* 1000, 

R0N=6356360, 

IF<Z.GE.90.) GO TO 6 
DO 3 1=1,8 

IF(ZS(I).LE«Z.AWD.Z.IT.ZS(I-H)) GO TO 5 
3 CONTINUE 

5 ZL=INT<ZSa))*i. 

ZU=INT(ZS<I+1>>U, 

ZLN=ZU1000. 

ZUN=ZU*1000. 

IF<I.EQ.8) ZU=88.743 
UH=UHO 

NT=(RO*Z)/(RQ+Z) 

HH=HT*1000. 

G=<THS(I+1)-THS(D)/(ZU-ZL) 

GN=GI.001 

IF<6.LT.O..OR.G.GT.O») GO TO 12 

P=PS ( I)«EXP< - ( 60IW10* ( HN-ZLH ) ) / (RSITHS ( I ) ) ) <1 00 . 

GO TO 13 

12 P = PS(n*((TNS(I)/(TNS(I)+G*(HT-ZL)))«((GOWNO)/(RStGN)miOO, 

13 T=TNS(I)+G«HT-ZL) 

GO TO 25 

6 DO 7 1=9,33,2 

IF(Z5(I),LE,Z,AND.Z.LT.ZS(H2)> GO TO 8 

7 CONTINUE 
81 T=0> 

P=0. 

D=0. 

RETURN 

8 ZL=ZS(I) 

ZU=ZS(I+2) 

ZLH=ZU1000. 

ZUH=ZU*1000, 

Z«ID=ZS(Ifl) 

AO=MNS(I) 

A2=-2.*(2.*WtS(I+l)-W(S(I+2)-A0)/((ZU-ZL)«2.) 

A1 = ( WHS (1+2) -A0-A2t ( ( ZU-ZL ) tt2 .))/( ZU-ZL ) 

Wf=AOTAl*<Z-ZL M-A2t< (Z-ZL )ti2, ) 
G=(THS(I+2)-THS(I))/(ZS(I+2)-ZS(I)) 

GH=G*.001 

TK=ZLH-(T«S(I)/GH) 

S= ( WNOtGOtRONIRON ) / (RStGH ) 

A=( ( RON+ZN) * ( ZLrt- TK' ) / ( < ZH-TK ) * ( ROfttZLH ) ) ) 

B=(S/((TK+R0M)M2.)) 

P=PS ( I >*< < ( PONT ZN ) I ( ZLH-TK ) / ( ( Zil-TK ) J ( RON+ZLN >))tt(S/(( TK+ROrt ) 
1112. > >)*EXP( (-S*(ZLN-ZN))/((TK+RON)t(ZN+RON)t(ZLN+RON)))tlOO. 
TH=TNS( I H6I(Z-ZS< I ) ) 

T=(WM/VNO)*TH 

25 D=<HHIP)/<RSIT) 

26 RETURN 
END 

SUBROUTINE TINT 


STDA 25 
STDA 26 
STDA 27 
STDA 28 
STDA 2? 
STDA 30 
STDA 31 
STDA 32 
STDA 33 
STDA 34 
STDA 35 
STDA 36 
STDA 37 
STDA 38 
STDA 39 
STDA 40 
STDA 41 
STDA 42 
STDA 43 
STDA 44 
STDA 45 
STDA 46 
STDA 47 
STDA 48 
STDA 49 
STDA 50 
STDA 51 
STDA 52 
STDA 53 
STDA 54 
STDA 55 
STDA 56 
STDA 57 
STDA 58 
STDA 59 
STDA 60 
STDA 61 
STDA 62 
STDA 63 
STDA 64 
STDA 65 
STDA 66 
STDA 67 
STDA 68 
STDA 69 
STDA 70 
STDA 71 
STDA 72 
STDA 73 
STDA 74 
STDA 75 
STDA 76 
STDA 77 
TINF 1 
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COHHOW/IOTEHP/IOTEH1 • I0TEH2 r IUG^NHCOP* PD» XMJD? PMI 1 »PHI » 

TINF 

2 


NSANE.RP1. RD1* RT1. SPlr SD1» STi, RU1. RVb SU1» SV1 

rTINf 

3 


$ m, I0A< IYR. HI t PHI 1R ■ THET1R rG rRI *H rPHIRf THETRtFIOtF IOBtGI r 

TINF 

4 


. IHR • MI N> NHORE *BX»HLtVL»DZ 

TINF 

5 


COHHON/COMJAC/XLAT . XLQNG » SDA t SHA • DY t R t TE .EH 

TINF 

6 

c 


TINF 

7 

c 

SIJROUTINE TIMF CALCULATES THE EXOSPHERIC TEMPERATURE ACCORDING TO JATINF 

8 

c 

SAO NO. 313 ! 1970. 

TINF 

9 

r 


TINF 

10 

C LIST 

TINF 

11 

c 

F10 = SOLAR RADIO NOISE FLUX (XE-22 MATTS/MII2) 

TINF 

12 

c 

F10B= 81-DAY AVERAGE F10 

TINF 

13 

c 

GI = GEOMAGNETIC ACTIVITY INDEX.AF 

TINF 

14 

c 

LAT = GEOGRAPHIC LATITUDE AT PERIGEE (IN RAD) 

TINE 

15 

c 

SDA = SOLAR DECLINATION ANGLE (IN RAD) 

TINF 

16 

c 

SHA = SOLAR HOUR ANGLE 

TINF 

17 

c 

DY = D/Y (DAY NUMBER/TROPICAL YEAR)? 1 

TINF 

18 

c 

R = 0.31 (DIURNAL FACTOR) 

TINF 

1? 

c 


TINF 

20 

c 

CONSTANTS - C=SOLAfi ACTIVITY VARIATION. BETAtETC. = DIURNAL VARIATITINF 

21 

c 

D=GEQHAGNETIC VARIATION. E=SIMIANNUAL VARIATION. 

TINF 

22 

c 


TINF 

23 

Cl = 383.0 

TINF 

24 


C2 = 3.32 

TINF 

25 


C3 = 1.80 

TINF 

26 

c 


TINF 

27 


PI = 3.14159265 

TINF 

28 


CON = 0.01745329252 

TINF 

29 


BETA= -37.0IC0N 

TINF 

30 


GAMMAS 43.0ICON 

TINF 

31 


P = 6.0IC0N 

TINF 

32 


XM = 2.5 

TINF 

33 


XNN = 3.0 

TINF 

34 

c 


TINF 

35 


B1 = 28.0 

TINF 

36 


02 = 0.03 

TINF 

37 


D3 = 1.0 

TINF 

38 


D4 = 100.0 

TINF 

39 


D5 = -0.08 

TINF 

40 

c 


TINF 

41 

El = 2.41 

TINF 

42 


E2 = 0.349 

TINF 

43 


E3 = 0.206 

TINF 

44 


E4 = 360. ICON 

TINF 

45 


E5 = 226.5IC0N 

TINF 

46 


E6 = 720. ICON 

TINF 

47 


E7 = 247.6IC0N 

TINF 

48 


E8 = 0.1145 

TINF 

49 


E9 = 0.5 

TINF 

50 


E10= E4 

TINF 

51 


El 1= 342.3ICON 

TINF 

52 


El 2= 2,16 

TINF 

53 

c 


TINF 

54 

C SOLAR ACTIVITY VARIATION 

TINF 

55 
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c TINF 56 

TC = Cl + C2IF10B + C34IF10 - FlOB) TINF 57 

C TINF 58 

C DIURNAL VARIATION TINF 5? 

c TINF 60 

ETA = 0.5*ABS(XLAT - SDA) TINF 61 

THETA = 0.5*ABS(XLAT + SDA) TINF 62 

TAU = SHA + BETA + P*SIN(SHA + GANNA) TINF 63 

TPI=2*PI TINF 64 

IF < TAU ) 210?230?230 TINF 65 

210 IF ( TAU+PI ) 220? 250? 250 TINF 66 

220 TAU=TAU+TPI TINF 67 

GO TO 210 TINF 68 

230 IF(TAU-PI) 250? 250? 240 TINF 69 

240 TAU=TAU-TPI TINF 70 

GO TO 230 TINF 71 

250 CONTINUE TINF 72 

A1 =(SIN(THETA))I*XN TINF 73 

A2 =(COS(ETA))«XN TINF 74 

A3 =(C0S(TAU/2.))«XNN TINF 75 

FI = 1.0 + RtAl TINF 76 

B2 =< A2-A1 )/Bl TINF 77 

TV = BUI 1. + R*F2*A3) TINF 78 

TL = TCITV TINF 79 

c TINF 80 

C GEONAGNETIC VARIATION TINF 81 

c TINF 82 

TG = D3IGI + D4»(1-EXP(D5*GI)) TINF 83 

c TINF 84 

C SENIANNUAL VARIATION TINF 85 

c TINF 86 

G3 = 0.51(1.0 + SINIElOtDY +E11) ) TINF 87 

G3 = G3WE12 TINF 88 

TAU1 = DY I E8KG3 - E9) TINF 89 

Gi = E2 + E3I(SIN(E4*TAU1 + E5)) TINF 90 

G2 = SINIE64TAU1+ E7) TINF 91 

TS = El + F10BIG1IG2 TINF 92 

c TINF 93 

C EXOSPHERIC TEMPERATURE TINF 94 

c TINF 95 

TE = TL + TG + TS TINF 96 

RETURN T ™F 97 

END TINF 98 

SUBROUTINE THE THE 1 

COHHON/COHJAC/XLAT • XLONG ? SDA ? SNA ? DY ? R ? T ?EH THE 2 

COHHON/IOTEHP/IOTEHl?IOTEH2?IU6?NHCOPiDB?XHJD?PHIltPHI? THE 3 

. NSAHEtRPlf RDU RT1? SP1? SD1? ST1? RU1? RVlr SU1? SVlrTHE 4 

4 HN. IDA? IYRf HI? PHIlR?THETlR?G?RI?H?PHIR?THETR?F10?F10B?APf THE 5 

. IHRfHIN?NHOR£?DX?HL»VL?DZ THE 6 

C THE 7 

C LIST THE 8 

C INPUT ™ E 9 

C HN=NONTH. IDA=DAY. IYR r HEAR. HR = HOUR. HIN = HINUTE THE 10 

C XLAT = LATITUDE (INPUT-GEOCENTRIC LATITUDE.) THE 11 
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c 

XLON6= LONGITUDE (INPUT-GEOCENTRIC LONGITUDE. OUTPUT -180 TO I 180! TME 

12 

C OUTPUT 

TME 

13 

C 

SDA = SOLAR DECLINATION ANGLE (IN RAD) 

TME 

14 

C 

SHA = SOLAR HOUR ANGLE (IN RAD) 

TME 

15 

C 

DD = DAY NUMBER FROM 1JAN. 

TME 

16 

C 

DY = DB/TROF'ICAL YEAR 

TME 

17 

C 


TME 

18 

C 


TME 

19 

C SET CONSTANTS 

TME 

20 

C 


TME 

21 


YEAR = 365.2422 

TME 

22 


YR=IYR 

TME 

23 


6 DY = DD/YEAR 

TME 

24 


30 FMJO = XMJD - 2435839. 

TME 

25 

C 


TME 

26 

C 

COMPUTE GREENWICH MEAN TIME IN MINUTES GMT 

TME 

27 

C 


TME 

28 


XHR -IHR 

TME 

29 


XMIN = MIN 

TME 

30 


GMT = 60HXHR + XMIN 

TME 

31 

C 


TME 

32 

C 

COMPUTE GREENWICH MEAN POSITION - GP (IN DEG) 

TME 

33 

C 


TME 

34 


XJ = (XMJD - 2415020.0/(36525.0) 

TME 

35 


01=99.6909833 

TME 

36 


A2 = 36000,76854 

TME 

37 


A3 = 0.00038708 

TME 

38 


A4 = 0.25068447 

TME 

39 


GP = A1 + A2*XJ + A3IXJIXJ + A4IGMT 

TME 

40 


N = GP/360, 

TME 

41 


XN = N 

TME 

42 


GF' = GP - XN*360. 

TME 

43 

C 


TME 

44 

C 

COMPUTE RIGHT ASCENSION POINT - RAP (IN DEG) 

TME 

45 

C 


TME 

46 

C 

1ST CONVERT GEOCENTRIC LONGITUDE TO DEG LONGITUDE - WEST NEG * EASTME 

47 

c 


TME 

48 


IFACT = XL0NG/180. 

TME 

49 


XFACT = IFACT 

TME 

50 


XLONG = 360. * XFACT - XLONG 

TME 

51 

c 


TME 

52 


RAP = GP F XLONG 

TME 

53 


N = RAP/360, 

TME 

54 


XN = N 

TME 

55 


RAP = RAP - XN4360. 

TME 

56 

c 


TME 

57 

c 

COMPUTE CELESTIAL L0N6ITUDE - XLS (IN RAD) - -PI/2 TO +PI/2 

TME 

58 

c 


TME 

59 


B1 = 0.017203 

TME 

60 


B2 = 0,0335 

TME 

61 


63 = 1.410 

TME 

62 


Y1 = B1TFMJD 

TME 

63 


XLS = Y1 + B2*SIN(Y1> - B3 

TME 

64 


PI = 6.28318 

TME 

65 
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N * XL3/TPI 


TME 

66 

XN = N 


TME 

67 

XLS = XLS - XNtTPI 


TME 

68 

C 


TME 

69 

C COMPUTE SOLAR DECLINATION ANGLE - SDA (IN RAD) 

TME 

70 

C 


TME 

71 

B4 = <TPI/360.)*23,45 


TME 

72 

SDA = ASIN(SIN(XLS)*SIN(R4)) 


TME 

73 

C 


TME 

74 

C COMPUTE RIGHT ASCENSION OF SUN - RAS 

(IN RAD) - -PI/2 TO +PI/2 

TME 

75 

C 


TME 

76 

RAS = A3IN(TAN(SBA)/TAN(B4>) 


TME 

77 

C 


TME 

78 

C PUT RAS IN SANE QUADRANT AS XLS 


TME 

79 

C 


TME 

80 

PI = 3.14159265 


TME 

81 

PI2 = PI/2, 


TME 

82 

PI32= 3.*PI2 


TME 

83 

RAS = ABS(RAS) 


TME 

84 

TENP = ABS(XLS) 


TME 

85 

IF(TENP - PI2) 130,130,100 


TME 

86 

100 IF< TEMP - PI) 105,105,110 


TME 

87 

105 RAS = PI - RAS 


THE 

88 

GO TO 130 


TME 

89 

110 IF< TEMP - PI32) 115*115fl20 


TME 

90 

115 RAS = PI + RAS 


TME 

91 

GO TO 130 


TME 

92 

120 RAS = TP I - RAS 


TME 

93 

130 IF (XLS) 135,140.140 


TME 

94 

135 RAS = -RAS 


TME 

95 

140 CONTINUE 


TME 

96 

C 


TME 

97 

C COMPUTE SOLAR HOUR ANGLE - SHA (IN DEG) - - 

TME 

98 

C 


TME 

99 

SHA = RAPt (PI/180 . ) - RAS 


TME 

100 

IF (SHA) 210,230,230 


TME 

101 

210 IF(SHA+PI) 220,250,250 


TME 

102 

220 SHA=SHA+TPI 


TME 

103 

GO TO 210 


TME 

104 

230 IF(SHA-PI) 250,250,240 


THE 

105 

240 SHA=SHA-TPI 


TME 

106 

GO TO 230 


TME 

107 

250 CONTINUE 


TME 

108 

C 


TME 

109 

RETURN 


TME 

110 

END 


TME 

111 

SUBROUTINE WIND 


UIND 

1 

COMMON /UINCQH/RHQ,FC0RY,DX5»DY5»PX,PY,PXX»PXY»PYY»U»V, T.TX.TY, 

WIND 

2 

i DU,DV,P,UPR£»VPRE,DUPRE,DVPRE 


UIND 

3 

COMMON /I0TEMP/DUM1 < 7 1 , PHI ,DUM2( 1 1 ) ,MN , DM2A(5) ,G,R»H,PHIR, 

WIND 

4 

♦THETR,DUM3(15),FLAT 


MIND 

5 

COMMON/CHIC/DUM ( 18 ) , IWSYM , UCOEF (14,9), VCOEF (14,9) 

UIND 

6 

ABSPHI=ABS(PHI) 


UIND 

7 

IF (RHO.GT.O, .AND.ABSPHI ,GT.O.) 

GO TO 20 

UIND 

8 
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U = 0. 

MIND 

9 

0 = 0, 

WIND 

10 

IF(ABSPHI ,LE.O) GO TO 31 

WIND 

11 

RETURN 

WIND 

12 

20 FCORX = FCORY*BX5/BY5 

WIND 

13 

U = - PYV f FCDRYtRHO) 

WIND 

14 

V = PX/(FCORX*RHO) 

WIND 

15 

DU = -(GtTT)/(FCORVJTl 

WIND 

16 

OV - <G*TX)/<FCQRX*T) 

WIND 

17 

31 IF(H.GT,20.AND.H.LT.95.)G0Tfl 99 

WIND 

18 

IF(ABSPHI.GE.FLAT) RETURN 

WIND 

19 

U=UPRE 

WIND 

20 

U-WRE 

WIND 

21 

DU-DUFRE 

WIND 

22 

DV=DUPRE 

WIND 

23 

RETURN 

WIND 

24 

C... SPHERICAL HARMONICS SECTION 


25 

99 IH=INT<H) 

WIND 

26 

IF(IH.LE.25)GOTQ 130 

WIND 

27 

IF(IH.GE.90)GOT0 140 

WIND 

28 

IHl=5*INT(H/5.) 

WIND 

29 

IH2=IHl+5 

WIND 

30 

CALL SPHERE <NN» INI rPHIR r THETR j US» US) 

WIND 

31 

CALL SPHERE(«N»IH2»PHIR»THETR»US2»VS2) 

WIND 

32 

FACS=(H-IHl)/5. 

WIND 

33 

U=US4 ( 0S2-US XFACS 

WIND 

34 

V=VS4 < MS2-VS ) IF ACS 

WIND 

35 

DU-(US2-US)/5000. 

WIND 

36 

0V=(VS2-MS>/5000. 

WIND 

37 

RETURN 

WIND 

38 

C. . .LOU ALTITUDE FAIRING 

WIND 

39 

130 CALL SPHERE(NN»25>PHIR»THETR»US>MS) 

WIND 

40 

FACS=(H-20. 1/5. 

WIND 

41 

FACG=1.-FACS 

WIND 

42 

U=FACG*U+FACS*US 

WIND 

43 

V=FACG*lHfACS*VS 

WIND 

44 

CALL SPHERE ( MN , 30. PHIR, THETR ,US2» 0S2 ) 

WIND 

45 

DUS- (US2-US 1/5000. 

WIND 

46 

IiVS=(MS2-VS)/5000. 

WIND 

47 

RETURN 

WIND 

48 

C. » .HIGH ALTITUDE FAIRING 

WIND 

49 

140 CALL SPHERE ( HN > 90 . PHIR . THETR . US. US ) 

WIND 

50 

FACS=(H-90. 1/5. 

WIND 

51 

FACG=1.-FACS 

WIND 

52 

U=FACS*UFFACG<US 

NINO 

53 

U=FACS*V+FACGIOS 

WIND 

54 

CALL SPHERED. 85. PHIR. THETR.US2.VS2) 

WIND 

55 

DUS=(US-US2 1/5000. 

WIND 

56 

DVS=(VS-VS2 1/5000. 

WIND 

57 

BU=F ACGMUPF ACSIDUS 

WIND 

58 

DO=FACG*DU+PACStDVS 

WIND 

59 

RETURN 

WIND 

60 

END 

WIND 

61 
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APPENDIX E 


SUMMARY OF PROGRAM CHARACTERISTICS 
(Program Operating Environment) 


Hardware 

a. Computer - Univac 1108 (implemented at Georgia Tech on the CDC 

Cyber 74 System) 

b. Core Reguirements - Approximately &0K on ^ e t ^° r ^ he Univac rou- 

The CDC System routines requi re more £ tem- See Section 

tine so there is no comparison between the system. 

5.1 . 

Mannetic Tapes - All 4-0 data tapes are 7 tracks. Proper and SCIDAT 
C ' "Tata tapes are 9 track. Tapes required are: 

1 program tape (if the program is stored (" TomYT 
format). 1 "SCIDAT" data tape (see Sect^4.2) ^ ^ ^ 

4 u^°r con trol P of * on^rup 1 ca rd° ( s ee Section 4.1 and Appendix B). 

d . card Punch - not required unless optional card output is desired. 

e. Plotter - none required 

f. Drum or Disk - 2 temporary drum or disk files ^equ-ired. 

S^n^Pr^U’” generated as i percent disk or 
drum file. 

g. Other Hardware - none 
. Software 

a- Operating System - UNIVAC EXEC 8 (Georgia Tech version is CDC Nos 1.3) 
Language - FORTRAN IV (UNIVAC FORTRAN V) 

Type of Run - Batch 


b. 

c. 

d. 


Library Subroutines - NTRAt I and FLO are j dNIVAC subrout ines^^TRAN 
^ftfand TTupToTTit 36 bit words into two 

18 bit integer words. 

e. Program Overlays - (Optional) - see Section 5.1 

Program Specifications 

a. Common - See Sections 5.2 - 5.4 
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3 . 


Progra m Specifications (cont'd ) 

b. Program Segments - See Sections 5.2 - 5.4 

c. Program Subroutines - See Section 5.1 

d. Listing - See Appendix D 

e ' Flow Charts - See Figures 5.1, 5.2, 5 3 
f . Sample Input - See Appendix C. 

9 . Sample Output - See Appendix C. 
h- Diagnostic Messages - See Section 4.5 
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